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1.  INTRODUCTION 


The  demand  for  increasing  performance  and  efficiency  of  turbines  and  com¬ 
pressors  in  jet  engines  forces  the  industry  to  advanced  designs.  This  means 
that  it  is  no  longer  acceptable  to  use  blades  in  turbomachines  which  are 
loaded  considerably  below  their  mechanical  limits.  There  are  two  major  ways 
to  improve  the  engine  thrust-to-weight  and  thrust- to- volume  characteristics: 

-  Reduced  weight  and  size 

-  Increased  massflow,  temperature  and  pressure. 

It  is  obvious  that  only  a  compromise  can  be  successful,  as  advances  in 
the  aerothermodynamics  oppose  those  of  the  structure. 

These  trends  require  the  use  of  slender  and  thin  blades  which  are  increas¬ 
ingly  susceptible  to  flutter  and  vibration  problems.  The  most  important  ones 
are: 

1.  Supersonic  unstalled  flutter 

2.  Forced  response 

3.  Subsonic  stall  flutter 

4.  Choke  flutter 

5.  Supersonic  stall  flutter 

While  the  latter  three  are  quite  difficult  to  describe  in  a  fluid  mechani¬ 
cal  model,  the  unstalled  supersonic  blade  flutter  is  amenable  to  analysis  with, 
reasonable  effort.  What  makes  it  even  more  interesting  and  at  the  same  time 
highly  important  is  the  possibility  of  its  occurrence  at  the  design  condition 
of  the  engine.  Especially,  modem  fans  with  large  diameters  operate  with  the 
outer  part  of  their  blades  in  the  transonic  flow  region  (1.  <  M  <  1.5).  Their 
flutter  susceptibility  therefore  makes  the  analysis  of  supersonic  unstalled 
flutter  increasingly  important.  The  problem  has  been  attacked  not  only  in  the 
United  States  but  in  all  major  industrialized  couatries,  which  shows  that  it  is 
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a  general  one  to  be  considered  In  the  design  of  modern  high-performance  turbo- 
machines  . 

During  the  pasc  decade,  several  methods  have  been  developed  to  predict 
supersonic  blade  flutter.  All  were  based  on  the  Idealization  of  the  actual  flow 
by  the  planar  flow  through  a  staggered  cascade  of  oscillating  blades.  However, 
the  two-dimensional  flow  and  the  flat  plate  assumptions  Impose  severe  simplifi¬ 
cations  whose  range  of  validity  needs  to  be  better  understood. 

Since  the  incorporation  of  three-dimensional  flow  effects  is  rather  diffi¬ 
cult,  it  seems  logical  to  first  explore  the  effect  of  blade  thickness  and  shape 
on  supersonic  blade  flutter  while  retaining  the  cascade  concept.  To  this  end, 
the  nonlinear  transonic  small  perturbation  equation  is  adopted  in  this  report 
as  the  governing  equation.  The  use  of  this  equation  rather  than  the  full  po¬ 
tential  equation  or  the  Euler  equations  is  suggested  by  Teipel's  success  to 
analyze  the  thickness  effect  of  a  single  oscillating  airfoil  in  low  supersonic 
flow.  Hence,  the  present  work  is  an  extension  of  Teipel's  method  to  oscillating 
supersonic  cascades  for  the  purpose  of  determining  the  influence  of  steady  non- 
uniform  flow  effects  due  to  blade  thickness,  shape,  camber  or  angle  of  attack  on 
the  oscillatory  pressure  distributions,  forces  and  moments.  The  ultimate  goal 
of  this  study  is  to  replace  the  transonic  small  disturbance  equation  by  the 
Euler  equations  so  that  the  range  of  applicability  of  this  simpler  equation  can 
be  ascertained. 
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2.  THE  BASIC  EQUATIONS 


2.1  The  Nonlinear  Transonic  Equation 

Landahl  presents  in  (1)  the  differential  euqation  which  is  valid  for  the 
transonic  flow  region 


i  +  u  i±i  ifl  ifl  +  i_  .  if*  .  2m  a2$ 

a2  SX2  '  3X2  .2  ST2  *  “8T 

with  D  -  Free  stream  velocity 

a  -  Local  velocity  of  sound 
M  -  Free  stream  Mach  number 
$  -  Velocity  potential  (X,Y,T) 
k  -  Ratio  of  specific  heats 

Eq.  (1)  can  be  written  non- dimensionally  by  using  the  terms 


X  Y  _  TO 

7  ,  y  -7  ,  C  -  — 


where  c  is  the  chord. 

Thus  we  get  the  new  form 


(1) 


Following  Teipel,  who  developed  in  (2)  for  single  airfoils  a  method  of 
characteristics  using  Eq.  (1),  in  this  work  Eq.  (2)  is  to  be  used.  This  has 
already  successfully  been  done  by  Platzer ,  Chadwick  and  Strada  (3, 4, 5 ,6, 7)  for 
a'.sdngle  oscillating  airfoil  and  for  oscillating  cascades  of  wedges  and  thick 
blades  with  flat  upper  surfaces.  Nevertheless,  the  basic  steps,  which  lead  to 
the  solution  of  this  problem  shall  be  repeated  in  this  report,  to  make  it  at 
the  same  time  a  summary  of  the  work  already  done  by  the  authors  above. 
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It  is  an  extension  in  so  far  as  it  Introduces  the  thickness  effect  of  the 
upper  blade  surface  in  an  oscillating,  staggered  cascade  and  shows  a  method- 
of-characteristics-app roach  to  the  unsteady  supersonic  wake  of  not  only  a  flat 
plate  but  also  airfoils  with  small  but  finite  thickness. 

As  we  consider  only  small  perturbations  of  the  freestream  flow  values,  the 
potential  function  d>  of  Eq.  (2)  can  be  split  into  a  steady  and  an  unsteady 
one.  Furthermore,  we  assume  only  harmonic  oscillations  so  that  we  can  write 

4>(x,y,t)  -  'P(x.y)  +  f(x,y)  •  eikt  (3) 

(l)*C 

where  k  ■  — is  the  reduced  frequency. 

Introducing  (3)  in  (2),  we  can  separate  the  unsteady  from  the  steady  problem 
and  we  obtain  a  set  of  two  differential  equations 

[M2  -  1  +  (k+1)  M2*  ]  *  -  *  -  0  (4) 

x  XX  yy 

and 

[M2  -  1  +  (k+1)  M2^  ]  ¥  -  ¥  +  [M2 (k+1)<P  +  21k  M2]  ¥  -  mVy  -  0  (5) 

x  xx  yy  xx  x 

The  boundary  conditions  for  the  flow  over  an  oscillating  airfoil  can  also 
be  written  as  the  sum  of  steady  and  unsteady  influences : 

h(x,t)  -  h- (x)  +  h-  (x)  •  eikt  (6) 

o  x 

(h(x, t);  x)  is  the  true  location  of  a  surface  point.  Thus  the  boundary 
conditions  for  the  steady  and  unsteady  problem  can  be  expressed 

3bo 

| fi  ■  v— —  =  slope  of  the  surface  (7a) 

y  vX 
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3hx  31^ 

=  the  unsteady  movement  of 
flat  plate 


Eq.  (4)  together  with  (7a)  describes  the  transonic  flow  field  over  a 
fixed  airfoil. 

Following  Sauer  (8),  we  can  attack  the  problem  with  the  method  of 
characteristics.  The  left-  and  right-  running  characteristics  shall  be  indi¬ 
cated  by  o  and  8  •  We  find  for  their  slopes 


or  with 


\  -  M2  -  1  +  (<H)  M 2>fix 


(8) 

(9) 

(10) 


The  upper  sign  indicates  the  a  -  direction.  Introducing  a  second 


substitution 


That  Eq.  (12)  holds,  can  easily  be  verified  by  resubstituting  (9)  and  (11) 
in  (12)  and  executing  the  differentatlon.  The  result  will  be  Eq.  (4). 


In  (12)  we  find  only  derivatives  in  the  x-direction  along  the  characteris¬ 


tics.  Therefore  we  can  Integrate  (12)  easily  and  obtain 


S'2  *  u  - 


y  •  const  ■  C 


'a.  6 


(13) 


We  changed  our  variables  from  1  and  to  X  and  p  .  Consequently, 

^  y 

we  have  to  convert  our  boundary  conditions  for  the  steady  problem: 
y  ■  0: 

3h 

U  -  f  Ocfl)  M2  -^2.  (14) 


Eq.  (13)  says:  as  long  as  we  move  along  one  characteristic. 


a,  6 


will  not  change.  This  makes  (13)  a  cool  to  evaluate  the  original  desired  un¬ 
knowns  <1  and  <P  in  the  field. 
x  7 

In  the  free-stream  field  <4>  and  f.  are  zero.  Hence,  there  we  have 

*  7 


and 


A  «  M2  - 


’  0 


Therefore  all  the  characteristics  have  here  the  slope 


lh\  _  ,  _ _ 

^x/a,0  ”  n/m2  -  1 


and  from  (12)  we  obtain 


-  xln  -  (M2  -  l)2'2 


00  09 


(15) 
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Fig.  1  shows  a  8  -characteristic  of  the  free  stream  hitting  the  surface 
of  the  airfoil. 


NL  C 


x  / 


Fig.  1.  Characteristics  on  the  Airfoil  Surface 


In  point  1  there  has  to  be  C_  ■  with  Eq.  (9),  (13)  and  (14)  we  now 

w  Cl 


can  find 


\  -  (M2  -  1) 3/2  +  |  (K+l)  M2 


In  the  two-dimensional  case  there  can  be  shown:  for  the  characteristic 
leading  away  from  the  boundary  there  Is  not  only 


but  also 


C  -  const 
a 

Ua  -  const  and 

\  -  const 
a 


With  Eq.  (5)  through  (16)  the  steady  problem  (4)  can  be  solved.  We  get  a 
net  of  characteristics.  On  the  grldpoints  the  values  of  <fix  and  are 

known.  The  computational  procedure  is  shown  later. 

With  the  knowledge  of  the  characteristic  net  and  the  values  for  <PX  ,  <fi  » 

A  and  y  in  each  grid  point  we  can  now  solve  the  unsteady  part  of  the  problem. 


*•59*2  -  -  7 


We  put  Eq.  (9)  and  (11)  into  (5).  The  result  Is  a  new  differential 


equation  for  the  unsteady  flow. 


X¥  -  ¥  +  (X  +  2ik  M2)  ¥  -  M2^  -  0 

yy  x  x 


Further  we  assume  irrotationality 


¥  -  ¥  -  0 
xy  yx 


(17) 


(18) 


Telpel  shows  explicitly  how  to  derive  from  the  system  of  Eq.  (17)  and  (18) 
the  compatibility  relations  for  the  unsteady  characteristics. 


T=  *  A  V  +  x (X. +  21t  m2>  -  x  *  ■ 0 


(19) 


The  geometry  of  the  characteristic  net  is  determined  by  the  coefficients 
connected  with  the  highest  order  terms.  Thus  we  can  see  from  Eq.  (4)  and  (5) 
that  the  net  remains  the  same  for  the  unsteady  flow  problem. 

To  solve  Eq.  (17)  via  Eq.  (19)  by  moving  along  the  already  known  character* 
istics  of  the  steady  field,  we  need  the  unsteady  boundary  values  along  the 
airfoil  and  along  the  shock. 

The  first  one  is  given  with  Eq.  (7b). 

3h, 


It  reads  for  pitch  -  movement 


and  for  plunge  -  movement 


¥  -  +  ikh. 

y  3x  1 


y  -  -  [1  +  ik(x  -  b) ] 

y 


fy  -  -  ik 
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where  b  is  the  normalized  location  of  the  pitching  axis.  These  expressions 
are  derived  in  section  2.2.  The.  boundary  conditions  along  the  oscillating 
shock  are  much  more  difficult  to  obtain.  This  is  done  in  section  2.3. 

After  obtaining  the  solution  for  ^  ,  Vj^  and  ¥  the  unsteady  pressure 
coefficients  can  be  computed  from 

Pt 


C  pl  "  2  PJJ 


(20) 


c  .  -  -  2(1^  +  ik  ¥) 


2.2  Boundary  Conditions  Along  the  Airfoil 

The  general  expression  of  the  location  of  an  oscillating  airfoil  is 
given  by  Eq.  (6) 


h(x,t)  -  h  (x)  +  h.  (x)  •  e 
o  1 


ikt 


hQ(x)  represents  the  surface  and  we  assume  for  now  that  it  is  described 
by  an  analytical  function  for  which  the  second  derivative  exists.  With  Eq. 
(7a)  we  can  calculate  'fi  on  the  airfoil: 


However,  as  we  only  consider  slender  bodies,  we  project  the  point  down 
to  the  x-axis  y  »  0  ,  so  that  the  boundary  coordinates  of  the  characteristic 
net  are  always  (x,0)  Instead  of  (x,y)  .  This  has  two  reasons 

1.  y  ■  0  makes  the  steady  boundary  step  much  less  complicated,  without 
Introducing  a  considerable  mistake; 


2.  The  oscillating  movement  of  the  airfoil  can  be  reduced  to  the  move¬ 
ment  of  a  flat  plate. 


We  examine  two  moving  modes.  The  pitch-  and  plunge-  mode. 


Fig.  2  shows  the  deflected  airfoil  (flat  plate)  in  a  system  of  coordinates 

h.  ■  (b  -  x)  •  tga 


As  a  is  small  and  a  harmonic  motion. 


we  can  say 


tga  -  a  •  e 
o 


Thus  we  get 


Fig.  2.  Pitching  Flat  Plate 


h.  -  (b  -  x)  o  •  e 
•L  o 


The  unsteady  boundary  condition  is  with  Eq.  (7b) 


%  "  C"  °o  +  “o  ik(b  ~  x)1  el 


fy  "  ”  °o  [1  +  lk<x  "  b> 1 


This  approach  to  the  boundary  conditions  is  a  rather  physical  one.  A  more 
rigorous  derivation  is  shown  by  Bell  in  (9),  including  the  derivation  of  Eq.  (7b). 


The  Oscillating  Shock  Wave  in  an  Oscillating  Flow  Field 


The  basic  problem  in  using  the  method  of  characteristics  is  finding  and 
introducing  the  proper  boundary  conditions.  Section  2.2  gives  us  the  influence 
of  the  moving  airfoil  into  the  field.  The  second  boundary  in  the  field  between 
surface  and  shock  are  the  unsteady  flow  properties  Immediately  downstream  of 
the  shock.  See  Fig.  4. 

It  is 


w  -  Velocity 

u,v  -  x,y  components  of  w 
wv,wt  -  Normal  and  tangential  components  of 
A  -  Indicates  properties  behind  the  shock 
Y0  -  Slope  of  the  shock  in  the  steady  problem 
Y  '  -  Deflection  of  the  shock  due  to  oscillation  of  the  airfoil 


Teipel  (10)  found  a  way  to  obtain  those  properties  for  an  airfoil  in 
undisturbed  supersonic  flow.  As  the  final  object  is  to  compute  the  flow  in  a 
staggered  cascade,  his  work  had  to  be  extended.  This  was  first  done  by 
Chadwick  (4)  who  applied  it  to  a  cascade  of  wedges.  Strada  used  Chadwick's 
equations  in  (5)  to  compute  the  inlet  flow  of  a  cascade  with  airfoils  which 
have  flat  upper  and  curved  lower  surfaces. 

Fig.  5  shows  the  velocities  upstream  and  downstream  of  an  arbitrary  shock: 


Fig.  5.  Velocities  at  the  Shock 


The  general  case  in  the  cascade  is  w  j*  u  .  Thus  we  write 


The  only  unknowns  are  and  ,  as  the  steady  problem  is  already 

expected  to  be  solved  and  the  field  in  front  of  the  shock  Is  presumed  to  be 
well  known.  Then  we  can  take  from  the  geometry  (Fig.  5) . 

w  ■  u  •  sin  (y  +  Y*)  “  v  cos  (Y  +  y') 
no  o 

(24) 

w  -  u  cos  (y  +  y')  +  v  sin  (Y  +  y') 

CO  o 

If  we  apply  Eq.  (23)  to  (24)  and  neglect  higher  order  terms  like  u  Yl  » 

o 

Eq.  (24)  can  be  rewritten.  For  convenience  we  use  the  abbreviation 

v  ■  1  +  uq  from  eqn.  (9) 

(25) 

(k+1)  vr 


Eq.  (24)  becomes 

w  sin  Y  +  u,  sin  Y  +  Y*  cos  y  -  (v  +  v, )  cos  y 

n  oi  o  o  o  1  o 

w  -  v  cos  Y  +  n,  cos  Y  “  Y*  sin  Y  +  (v  +  v.)  sin  y 
t  oi  o  o  o  1  o 

Now  we  take  a  look  at  the  equation  for  normal  moving  shocks  (11) . 


(26) 


(27) 


where  W  is  the  relative  velocity  of  the  shock  with  respect  to  the  fluid.  To 
transform  from  the  system  moving  with  the  fluid  into  an  airfoil  -  fixed  system 
of  coordinates,  we  find  the  velocity  of  a  point  oscillating  with  the  shock  as 


See  Fig.  6. 


W*  «  W  +  w 
n 


(28) 


14 


(33) 


Wa-^TVsinY0  -^vq  cos  Yq  <1  -  ft)  + 


+  M  a  +  A>  W'  *  M  (1  -  &»<r*  “•  Vc  *  »x  .in  Y0  -  Tj  co.  ,„) 


together  with 


0  ■  w 

6  t 


Out  of  Eq.  (26)  we  have  now  expressions  for  the  velocities  behind  the 
moving  shock  in  terms  of  the  known  values  and  y'  and  V  .  In  the  next  step 
we  look  at  a  point  of  the  oscillating  shock.  Fig.  7. 


*  - 


p« 

P  dtp^td  p»r. 


*F 


Fig.  7.  Geometry  of  an  Oscillating  Shock 

If  we  assume  G  to  be  a  harmonic  oscillation  around  the  steady  middle- 
position  F  ,  we  can  say 


x  •  xp  +  G(y)  •  e 


where  G(y)  is  the  amplitude  of  the  shock  vibration  and  k  the  same  reduced 
frequency  as  given  for  the  airfoil. 


The  normal  motion  of  P  is 


W'  "  (If)  *  8in  +  Y) 

\  /y 


W*  -  ik  sin  yQ  G(y) 


again  the  exponential  term  is  omitted. 

As  we  know  YQ(y)  from  the  solution  of  the  steady  problem,  we  can  find 
the  x-coordinates  of  P  : 


xp  -  j*  ctg  (Yq  (y))  dy 
o 


This  completes  Eq.  (35)  to 


-/■ 


x  -  /  ctg  (Y0  (y))  *  dy  +  G(y)  •  e 


The  total  differential  gives  us 


•  dt  +  (tm  •  dy 

Wt 


dx  -  ik  G(y)  •  e1KC  •  dt  + 


ctg  (yq  (y))  +  (ff)*lkt]  *  dy 


(1^  "  ct*  (Y0  (y)  +  y  (y)) 


and  now  considering  always  a  fixed  y  we  can  formulate 


ctg  (y  +  Y  )  *  c-eg  Y_  +  G  •  e 
o  o  y 


*  *■** 


Trigonometric  relations  and  higher  order  terms  going  to  zero  give  us 


Y '  -  -  sin  .  y  G 
o  y 


(38) 


The  transformation  back  to  our  Cartesian  system  of  coordinates  (Fig.  1) 
is  done  by 


u  »  wt  cos  (yo  +  Y  )  +  wQ  sin  (yq  +  Y  ) 

^  -  w  sin  (Y  +  Y  )  -  0  cos  (y„  +  Y‘) 
co  no 


(39) 


The  following  steps  have  to  be  executed  on  Eq..  (39): 

-  Introducing  Eq.  (33),  (34) 

-  Applying  trigonometric  relations 

-  Neglecting  all  higher  order  products 

-  Introducing  Eq.  (36)  and  (38) 

-  Separating  the  purely  steady  expressions  from  the  rest  of  the  equations 
The  result  is  a  substitute  for  the  shock  polar  ( 27)  which  gives  us  the 

unsteady  velocities  u^  and  v^  behind  the  shock. 


\  "  “l  Gy  "  1  “2  G  "  m3  U1  *  m4  V1  “  0 


h  “  nl  Gy  "  1  a2  G  *  a3  “l  *  a4  V1  "  0 


(40) 


with  A  defined  in  Eq.  (32)  it  is 


”l  “  M  v  8in-2  sin2  Yc 


“2  "  Si  (1  +  A)  Sin2  Yo 


.  2  K-l  2A  x  .  2 

n3-  8in  Yo^r(1’^r)  +cos  \ 


(41) 


8ln2  \ 

*4  “  k+1 


(1  +  A) 
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2.4  Connections  Between  the  Linear  and  the  Nonlinear  System  of  Equations 

In  an  earlier  work  Teipel  developed  in  (12)  a  method  of  characteristics 
for  an  oscillating  single  flat  plate.  He  derived  an  analytical  solution  for 
the  unsteady  boundary  values  along  the  shock.  Using  the  perturbation  velocity 
of  sound  rather  than  the  perturbation  potential,  his  concept  was  taken  by 
Bell  in  (9)  and  by  Platzer  and  associates  in  (3,13,14)  to  obtain  results 
for  a  cascade  of  flat  plates.  They  started  from  the  Euler  and  continuity 
equations  with  the  substitution 


U(x,y)  •  eikt  -  uL 

(45a) 

V(x,y)  •  e  -  *  v 

(45b) 

.  ikt  2  1  a  “  a« 

C(x,y)  •  e  -  K.i  2  a 

*  1  vr  a» 

(45c) 

where  U  ,  V  and  C  are  conplex  nondimens ional  amplitudes. 

The  result  is  a 

set  of  differential  equations  which  reads 

Continuity:  +  Vtf*  -  l'  •|^  +  M2~+ikM2C-0 

(46) 

Eular:  f£  +  f§+ikU-0 

(47) 

Irrotationality:  ■|j  -  Vm2  -  l'^  -  0 

(48) 

Furthermore  it  is  shown  by  Bell  in  (9)  that  the  pressure  in  terms  of  Eq. 
(45)  can  be  expressed  as 

P  ~  P.  “  £  P.  <a  *  *J 

or 

c  -  2C 
P 
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As  (p  -  Pa,)  is  our  unsteady  pressure  disturbance  (the  steady  pressure 
disturbance  is  zero  for  a  flat  plate)  we  can  say  with  Eq.  (20) 


or 


2C  »  -  2  (u2  +  ik  ¥) 
C  -  -  (Uj  +  ik  T) 


(50) 


Now  we  take  Eq.  (45a) ,  (45b)  and  (50)  and  substitute  into  Eq.  (46)  and  we 
get 

0^  -  i)  g”  "  +  2  ik  “i  ”  kV  V  -  0  (51) 

With  u^  ■  and  v^  *  f  this  is  our  Eq.  (17),  when  we  consider  that  for 
a  flat  plate  the  values  for  and  A^  are  always  zero. 

A  -  tf-1  * 


Applying  Eq.  (50)  on  (47)  gives  us 


"1 


3x 


which  is  one  of  our  basic  equations.  Obviously,  Eq.  (4S)  can  be  transformed 
into  Eq.  (18).  Hence  it  is  shown  that  the  basic  equations  previously  used  by 
Teipel  and  Platzer  for  the  flat  plate  are  equivalent  to  the  perturbation 
potential  equations  used  in  this  work,  when  these  are  reduced  to  the  linear  case. 

The  next  step  shows  how  to  obtain  an  anlytlcal  expression  for  the  oscil¬ 
lating  shock  generated  by  a  single  flat  plate  from  the  rather  complicated 
differential  equation  (40) . 

As  there  arc  no  perturbations  in  front  of  the  shock,  Eq.  (40)  reduces  to 
the  Telpel-form 


21 


•l  G,  +  i  »2  e 


'rW1"!1 


In  addition  the  steady  shock  angle  yq  can  be  expressed  as 


sin  yo  -  t 

and  with  this  A  from  Eq.  (41),  defined  in  Eq.  (32),  becomes 


A  m  - i _  _  1 

2  2  2 
v  M  sin  Y 

o 

(v^  1  +  u  -  1) 
o 


The  shockpolar  written  down  explicityly  reads 


h '  *itL\ al"2'o  V‘«‘  •‘A, G 


*1  "  *  (co,2lro  +  l>  slA>  a,  -  1  wi  2  “•*„  »“r0  o 

Using  the  trigonometrical  relations  and  Eq.  (52)  we  obtain  after  some 


adding  and  subtracting 


A  _ JL _  A 


for  the  velocities  inmiediately  downstream  of  the  shock.  We  now  go  into  the 
compatibility  relation  Eq.  (19).  Linearized  with  -  0  it  is  for  the  upper 


Eq.  (54)  shows  that 


3ul  1  3vi 

3*  3x  3x 


mw* r 


I 


Landahl  (1)  shows  chat  ('Bv)  should  be  continuous  across  a  shock.  As 
all  the  steady  components  are  zero  in  this  case  his  result  applies  here  to  the 
unsteady  potential  alone.  On  the  other  hand  we  consider  the  shock  thickness  as 

A 

infinitely  small.  As summing  d¥  to  be  nonzero, 

a£ 

3x 

A 

would  become  infinitely  large  across  the  shock.  Thus  ¥  can  only  be  zero  along 
the  unsteady  shock  of  a  single  flat  plate,  or 

¥  -  'V 


for  a  cascade. 

The  remaining  steps  are  fairly  straight  forward.  With  the  conditions  shown 
above,  Eq.  (19)  becomes 


2 


3U1  ,  2ik  M2 
3X  M2  -  1 


“l 


-  0 


or 


U1 


this  can  be  integrated 


u^  »  const  •  e 


i 


k  M2 
M2  -  1 


x 


for  x  -  0  we  get  Che  perturbation  for  the  leading  edge 


9.  can  be  obtained  from  the  unsteady  boundary  conditions.  The  final 
T^E 

expression  for  the  unsteady  velocities  behind  the  shock  attached  to  an  oscil¬ 
lating  flat  plate  is  now 


\  (x) 


(55) 


This  result  was  also  obtained  by  Bell  (9)  and  considering  the  different  systems 
of  coordinates,  it  is  equal  to  the  solution  fcund  by  Teipel  in  (12). 


2 . 5  The  Wake 

Fig.  8  shows  the  characteristic  net  for  the  airfoil  and  wake  regions.  The 
fluid  in  the  fields  2  and  11  has  to  adjust  via  the  two  trailing  edge  shocks  in 
such  a  way,  that  the  wake  condition  on  the  slip-line  in  the  fields  4  and  13  is 
not  violated.  This  condition  requires  flow  tangency,  continuity  of  pressure 
and  normal  velocity  across  the  slip-line,  l.e.. 


and 


cp4  -  cp13 

w  ■  w 
\  n13 


(56) 


w  is  the  velocity  component  normal  to  the  slip-line.  Again  this  problem  is 
n 

split  into  steady  and  unsteady  parts. 
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Fig.  8.  The  Net  of  Characteristics  for  Che  Steady  Wake 


Shapiro  (11)  gives  a  series  solution,  for  the  pressure  difference  connected 


to  a  direction-change  A0  *  0^  -  0^  for  supersonic  flow. 


2  lu  •  <®4  -  92>  tCItu  •  -  92>2 

<  D  >  H. 


+  left  running  Mach  lines 


-  right  running  Mach  lines 


with 


Iu 


“IIu 


■\jy^  -  i 


(M^  -  2)2  +  ic 
2  *  (M^  -  l)2 


(58) 


The  same  equation  is  employed  for  the  fields  11  and  13  where  the  indices 
11  and  13  take  the  place  of  2  or  rather  4  in  Eq.  (57)  and  (58),  resulting  in 
the  coefficients  and  .  Therefore,  we  need  to  know  Mj  and  . 

We  can  determine  M  with  Eq.  (9)  and 


2  CP 


-  ■ 

x 


P/Poo  -  1 


p/p  can  be  expressed  through  the  isentropic  relations  as 


P/P«  “  f  (k,  M.  M) 


with  this  we  obtain 


m2  ,_L. 


1+T^ 


1  -  (X  -  *4 + 1) 


K-l 

K 


-  1 


For  a  given  point  in  which  X  is  known  we  can  find  the  flow  direction  for 
9*0  as  parallel  to  the  x-axis . 


tg  9 


1  +  u 


from  Eq.  (11) 


o  3 


(k+1)  M2 
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and  (13) 


u  -  +  [(m2  -  i)3/2  -  x3/2] 

we  arrive  through  Eq.  (25)  at 

.  -  d3/2  -  x3/2 

tg  0  -  +  •  - = -  (60) 

X  +  IT  K  +  1 
00 


The  upper  sign  Indicates  the  left-running  (-  lower  surface)  and  the  lower 
sign  the  right  running  characteristic  (-  upper  surface) . 

Now  we  have  the  coefficients  CIu  ,  CIIu  ,  CIL  and  CJIL  .  In  addition 
it  must  be 


and 


Thus  we  can  say 


*4 

Poo 


ce4- 


02> 


+  c 


IIu 


(®4  “  V 


+  1 


(04  "  011> 


+  C 


TIL 


(04- 


011>' 


+  1 


(61) 


The  equality  of  these  two  equations  gives  us  a  way  to  solve  for  0^  .  As 
we  took  only  second  order  terms  of  the  result  is  0^  »  0^  -  0  for  zero 

angle  of  attack.  This  is  correct,  because  we  assume  isentropic  flow  across  the 
shocks.  The  reason  why  it  is  done  in  this  rather  difficult  way  is  that  the 
upwash  of  the  nonlsentroplc  flow  can  be  easily  added  to  the  program  by  simply 
adding  the  third  coefficient  given  by  Shapiro.  Actually,  this  is  already 

done  in  the  program.  It  has  been  reversed  through  setting  »  0  in  order 

to  be  consistent  with  the  assumption  of  isentropic  flow  across  the  weak  shocks. 


| 
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After  we  have  determined  the  flow  in  field  4  and  13  we  compute  the  trailing 
edge  shocks  and  the  rest  of  the  wake  field.  The  step  from  the  slip-line  is 
repeated  from  the  fields  5  and  14  to  7  and  16  as  described,  etc.  All  other 
steps  in  the  wake  field  are  general  characteristic  steps  like  those  over  the 
airfoil. 

It  is  now  possible  to  solve  for  the  unsteady  flow  field  of  the  wake.  This 
is  again  done  on  the  same  grid  locations  which  are  known  from  the  steady 
solution. 

The  conditions  for  this  part  of  the  solution  are 

-  No  Pressure-Jump  Across  the  Slip-Line 


u12u  +  ik  ^u  "  U12L  +  ik  f2L 


(see  Fig.  10). 

-  Tangential  Velocity  on  the  Slip-Line 


Vo  +V1 

1  +  uo  +  Ui 


-  tg  (eo  +  £  ) 


(see  Fig.  9) 


Fig.  9  Slip-Line  Geometry 


(62) 


(63) 
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With  trigonometric  relations  Eq.  (63)  becomes 

e '  -  v  -  (1  +  u  )  tg  e  +  v.  -  u.  tg  c 
o  o  o  1  l  o 

from  the  steady  solution  we  know 

v  -  (1  +  u  )  tg  e  -  0 

O  0  0 

hence  we  obtain  for  the  unsteady  deflection  of  the  slip- line 

e '  "  V1  -  °i  tg  eQ 

as  e  '  has  to  be  equal  for  the  upper  and  the  lower  side  of  the  flow  field, 

(V1  '  U1  *  C*  eo>2u  "  (V1  ‘  U1  eo>2 L  (64) 

is  the  first  equation  in  the  system,  which  we  want  to  solve  for  (u^  ,  vj^2u 
and  (u^  ,  *  Indicea  refer  to  Fig.  10. 


The  next  step  uses  Eq.  (64) .  Fig.  10  shows  the  simultaneous  step  from  the 

unoer  and  1  over  walre  field  r he  oUn-Hno 


with 


x„  - 


¥1  + 


12  +  “11  ± 


+  2 


Vvn 


(65) 


We  can  substitute  ^  by  the  known  ^  and  the  desired  unknowns.  This 
gives  us  the  second  equation  of  the  system  when  properly  recast  in  left-  and 
right:-  hand  sides. 

The  two  missing  statements  which  make  the  system  solvable  comes  from  the 
compatibility  relation  (19).  Applied  to  the  upper  and  lower  slip-line  steps, 
respectively,  they  complete  the  system. 

The  computational  procedure  is  explained  in  more  detail  in  chapter  3. 
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3.  THE  SINGLE  OSCILLATING  AIRFOIL:  WING 
3.1  The  Program  Organization  Over  the  Airfoil 

The  name  of  the  program  for  the  single  oscillating  airfoil  is  W  I  N  G.  It 
was  designed  to  use  the  subroutines  as  often  as  possible,  that  is  over  the  sur¬ 
face  as  well  as  in  the  wake  field.  For  this  purpose  a  special  notation  was 
introduced  which  is  shown  in  Fig.  11  and  Fig.  12. 


Fig.  11.  Notation  of  the  Fields  in  Wing 

The  arrays  which  contain  properties  of  the  flow  field  have  the  dimension 
(K  ,  M  ,  N)  .  M  and  N  give  the  location  of  the  gridpoint:  Point  M  on  the 
N-th  characteristic  for  the  upper  field  and  vice  versa  for  the  lower  field. 

K  and  IW  indicate  where  we  are: 

IW  ■  0  Not  yet  in  the  wake 
IW  -  0  Computation  of  the  wake 
K  ■  1  Field  already  known 
K  -  2  Field  computed  now 
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The  upper  and  lower  side  is  indicated  by  I  ■  1  and  I  ■  2  respectively. 
Thus  we  can  switch  the  changing  sign  of  the  characteristics  with 

(-  1)(I  +  1> 

This  notation  has  the  advantage  that  we  can  compute  the  field  on  both  sides 
of  the  wing  (IW  ■  0)  by  switching  I  .  For  the  wake  we  still  can  use  the 
subroutines  we  used  over  the  wing,  when  we  change  K  .  Proper  combinations  from 
IW  ,  I  ,  K  ,  M  and  N  cover  the  whole  field.  The  main  diagonal  of  (M  ,  N) 
is  not  used.  Fig.  12.. 


Fig.  12.  Array  Organization  in  Wing 

Originally  for  the  first  shock  we  need  only  the  Teipel  -  form  of  Eq.  (2.40). 
But  we  have  to  use  the  whole  expression  in  our  step  from  the  airfoil  into  the 
wake  because  the  unsteady  velocities  over  the  airfoil  are  nonzero.  So  the  sub¬ 
routine  RANDS  includes  the  extended  shockpolar.  To  be  consistent  in  our 
treatment  of  the  shock  at  the  leading-  and  trailing  edge,  an  initial  field  in 


front  of  the  airfoil  is  generated  by  the  characteristics  with  the  slope 


iJL 

dx 


all  perturbation  properties  are  set  to  zero.  During  the  computation  of  the 
flow  field  over  the  airfoil  (IW  -  0)  the  index  K  has  the  meaning 
K  -  1  Initial  field 
K  ■  2  Field  over  the  airfoil 

After  this  calculation  step  we  do  not  need  the  Initial  field  any  longer  and  we 
copy  (2  ,  M  ,  N)  to  (1  ,  M  ,  N)  .  Now  the  K*2  -  ‘array  is  free  for  the  wake 
field  results  and  K  indicates 

K  ■  1  Field  over  the  airfoil 
K  -  2  Wake  field 

In  the  shown  listing  of  WING  the  arrays  have  the  size  (2,  25,  25)  to 
keep  the  storage  area  reasonable.  However  with  16  points  on  the  airfoil  the 
wake  is  only  computed  to  a  distance  of  1.7  times  the  chordlength  from  the 
leading  edge.  If  this  is  not  enough,  the  program  can  be  blown  up  by  Increasing 
the  arrays  to  (2,  KV  ,  KV)  . 

The  value  of  KV  has  to  correspond  with  the  first  statement  of  the 
program.  All  the  DO-loops  are  then  dimensioned  correctly.  Another  change  has 
to  be  done  In  subroutine  LIFT.  Here  all  the  arrays  stay  the  same  besides 
A  .  This  is  only  a  dummy-array  to  define  the  space  between  X,  U,  Q,  F  and 
PX,  PS,  PU  .  A  must  have  the  size 

A(22  •  KV2  +  4  •  KV  -  1000) 


The  next  page  shows  an  approximate  block  diagram  of  the  program.  On  the 
sides  are  the  names  of  the  subroutines  involved  in  the  step  of  the  respective 
block.  This  diagram  is  only  a  summary  of  what  is  really  done.  A  lot  of 


33 


details  have  been  skipped  in  order  to  keep  it  clear.  One  of  the  most  important 
routines  does  not  even  appear.  FIND  is  an  orientation  subprogram  that 
works  only  on  the  field  (1,  M,  N)  .  If  the  arbitrary  coordinates  (x,y)  are 
the  input  of  FIND,  it  comes  out  with  the  indices  (M2  ,  N2)  which  give 
us  the  mesh  of  the  field  in  which  (x,y)  is  positioned;  see  Fig.  13. 


Again  I  is  the  switch  for  upper  and  lower  sides.  If  (1,  M,  N)  does 
not  contain  (x,y)  .FIND  indicates  this  by  setting  IE  -  1  ,  which  is 
otherwise  zero.  Besides  this  there  is  a  message  in  the  output.  IE  -  1  causes 
for  the  LE-shock  to  assume  free  stream  values  in  front  of  it.  For  the  TE-shock 
it  terminates  further  computations,  because  there  would  be  no  sense  in  it.  If 
(1,  M,  N)  contains  (x,y)  and  (1,  M2,  N2)  can  not  be  found,  this  will  be  in 
the  output  also.  Then  we  know,  something  went  wrong.  But  this  should  not 
happen.  It  is  only  a  precautionary  feature. 

Another  important  background  -  subroutine  is  SOLVE.  During  the  run 
through  WING,  complex  systems  of  linear  equations  have  to  be  solved 
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several  times.  This  Is  done  by  SOLVE.  It  follows  the  Gaussian  upper/ 
lower-concep  t . 


which  is  all  we  want  to  know  for  a  point  in  the  steady  field.  The  slope  of 
the  shock  at  the  LE  is  taken  as  the  average  of  the  characteristic  slopes 
upstream  and  downstream  of  the  shock: 


>2»1  ^X2,l  W*M3,  N2 


2.  All  the  other  points  of  the  shock  are  found  by  the  same  step  done 
repeatedly: 

From  the  LE  we  make  a  step  DX(I)  to  find  B  (Fig.  14).  Employing 


B  in  Eq.  (2.16)  gives  us 


S.l  " 


and  so  the  slope  of  the  characteristics  starting  in  B 


The  intersection  of  the  shock  with  the  slope  tg  y  and  the  B  - 

°2,1 

characteristic  is  the  point  (3,1).  Here  the  slope  of  the  shock  is  changed  to 


“  ""  "  — — 

3,1  >A3>1  +  >/XM3, 


we  apply  the  same  procedure  for  point  C  respectively  (4,1)  ;  etc.  for  the 
whole  shock. 

The  points  (M2,N2)  or  rather  (M3,N3)  are  pert  of  the  initial  field 
for  the  LE-shock  .  In  case  of  the  IE-shock  they  are  part  of  the  field  over 
the  airfoil.  They  are  spotted  in  FIND. 

All  this  is  done  in  SHOCK. 


The  unsteady  shock  can  be  determined  also  with  two  basic  steps: 

1.  The  Initial  step  was  already  described  with  Eq.  (2.43)  and  (2.44) 


After  this  we  have  "u^  and  at  the  origin  of  the  shock 


Fig.  15.  Computation  of  A 

2.  For  the  remaining  points  we  take  the  two  Eq.  (2.40)  (Shockpolar)  and 
Eq.  (2.19)  (Compatibility  Relations  on  the  Characteristics  Between 
(3,1)  and  (4,1)  ;  see  fig.  14). 

This  gives  us  a  complex  system  of  three  linear  equations  with  the  solution 
^  ^  and  G  in  each  point.  The  system  is  solved  by  subroutine  SOLVE 

The  coeffldaits  of  Eq.  (2.40)  are  confuted  in  C  0  E  F  F  1  . 

However,  to  express  Eq.  (2.19)  in  finite  difference  form,  we  have  some 
difficulties  with  .  Consider  Fig.  15. 

If  we  are  moving  from  a  to  b  ,  &A  is  zero  because  we  are  on  a  left¬ 
running  characteristic. 
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A^  Is  in  point  a 


a 


A  -  A 

c  a 

x  -  x 
c  a 


through  A  *  A  and  approximately  x  -  x  •  2  (x  -  x ,)  ,  we  can  say 
c  a  c  &  c  q 


1  ~  Xa 

*lo  "  2  *d  ‘  Xa 


or 


M 


.  I  x 

a  2  x>0 


We  go  now  back  to  Fig.  14  and  Eq.  (2.19).  Assuming  that  setting  1^0,1)  * 
^(P)  causes  only  a  small  error  because  both  points  are  very  close  together, 
we  can  express  ;^(P)  33 


A,(P)  -f 


i  X».  i ;  x3.i 


x  -  x 
P  3,1 


t 


■ 

8 


With  this  the  finite  difference  form  of  Eq.  (2.19)  along  the  a  -  characteristic 
from  P  to  (4,1)  is  no  problem.  It  is  written  without  the  second  index. 

Thus  3,1  becomes  3: 


"14  -  **13 
*4  "  Xp 


o  _  $ 
V14 


13  +  "14 


■  « 

+>  u. 


13 


1  X4  ~  X3 

2  Xp-X3 


+  2ik 


-  kV 


ft? 

4  3 


-  0 


(4) 


With  Eq.  (2.64)  substituted  for  and  the  u^  ,  and  already 

known,  this  is  the  third  equation  of  the  system  after  recasting  into  right  and 
left  hand  sides. 
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and 


To  make  it  easier,  we  set  y^  to  zero  and  8et 


(6) 


Setting  Eq.  (6)  equal  to  (5),  we  can  find  by  iteration  the  x ^  which 
matches  both  of  them.  With  x ^  we  then  find  .  Here  the  steady  problem  is 
solved.  The  unsteady  part  is  very  straightforward.  The  known  k  gives  us 
this  point  via  the  unsteady  boundary  conditions  Eq.  (2.21)  or  (2.22).  Now  the 
only  unknown  left  is  y  .  It  can  be  separated  from  the  compatibility  form. 
Again  is  obtained  separately  afterwards  from  Eq.  (2.64).  The  unsteady 

step  is  computed  in  R  A  N  D  B  . 
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The  unsteady  part  is  done  in  GENU.  Here  the  compatibility  relation 
(2.19)  is  applied  for  both  characteristic  directions  from  point  b  and  d  to 
the  point  c  .  The  unknowns  are  u^c  and  v^c  .  We  obtain  them  as  results 
from  a  complex  system  of  two  linear  equations  which  we  form  out  of  the  two 
compatibility  relations.  The  system  is  solved  through  SOLVE.  As 
always  is  evaluated  separately  from  Eq.  (2.64). 

3.5  Computation  of  the  Wake 

For  the  wake  computation  WING  leaves  the  main  program  completely  and 
works  in  a  new  organization  program,  called  WAKE.  This  was  mainly  done 
to  separate  the  entirely  different  computation  sequence  from  the  organization 
from  the  field  above  the  surface.  In  section  2.5  it  was  already  indicated  how 
to  solve  for  the  slip-line  and  then  for  the  wake  field.  The  wake  field  com- 
putatlon  is  shown  in  the  following  flow  diagram.  The  indices  refer  to  Fig.  8. 
Attached  to  the  blocks  are  the  names  of  the  subroutines  or  the  equations  in¬ 
volved  in  the  step. 

Once  the  steady  field  is  known,  the  calculation  becomes  straightforward 
again.  The  conditions  directly  downstream  of  the  TE  are  defined  by  the  un¬ 
steady  shockpolar  (2.40)  .  Applied  simultaneously  for  the  upper  and  lower 
airfoil-side,  they  give  the  conditions  for  pressure  continuity  (2.62)'  and-  parallel 
flow- on  the  slip-line  (2.64)/.  With  these  four  equations  we  can  solve  for 
(u  ,  9)  ai*d  (8,0)^.  This  is  the  slightly  more  difficult  initial  step 
for  the  TE-shock  .  After  it  is  done,  the  computation  runs  along  the  shock  or 
rather  along  the  characteristics  with  the  same  subroutines  as  over  the  airfoil. 

The  basic  difference  lies  in  the  step  to  the  slip-line.  Here  R  A  N  D  B  can 
not  be  used  any  longer.  SLIP  does  the  simultaneous  step  from  the  upper 
and  the  lower  wake  field  to  the  slip-line.  The  compatibility  relation  (2.19) 
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gives  two  equations,  one  for  each  characteristic  direction.  Eq.  (2.62)  de¬ 
mands  pressure  continuity  across  the  slip- line  and  Eq.  (2.64)  parallel  flow 
on  both  sides.  Recasting  these  expressions  In  terms  of  finite  differences 
results  In  a  system  of  four  complex  unknowns.  It  Is  solved  by  SOLVE. 

3.6  Introduction  of  a  Pointwise  Given  Surface 

The  surface  of  an  airfoil  is  not  always  analytically  given  and  therefore 
the  possibility  of  a  pointwise  given  airfoil  should  be  included.  This  can  be 
done  with  so  called  cubic  splines.  The  spline  function  here  used  is  described 
in  (16).  It  reads 

Si  (x)  2  a±  +  bi  (x  -  xt)  +  (x  -  x^2  +  dt  (x  -  Xj,)3 
for  x  e  [xt  ,  x1+1]  ,  1  *  0  (1)  n  -  1 


Fig.  17  The  Spline  Function 


The  demand  for 


si  (V  - 


i  -  0  (1)  n 


Si  "  Si-1  (xi> 


i  -  1  (1)  n 


Si  (xi>  "  Si-1  (xi> 


Si  (V  *  Si-1 


i  -  1  (1)  n-1 


leads  to  a  system  of  equations  which  give  for  each  interval  (x^  ,  x^+^)  the 


coefficients  of  the  spline  S^Cx)  .  With 


hi  “  Xi+1  "  xi 


The  coefficients  can  be  expressed  for  known  c  as 


ai  “  *i 


bi  “  h±  (ai+l  ”  aiJ  3  (ci+i  +  2  ci) 


di  “  3h±  (ci+l  ~  V 

Hie  ci  are  the  solution  of  the  linear  algebraic  system 
hi-l  *  Ci-1  +  2  ci  toi-l  +  V  +  hi  ci+l  * 


h±  (ai+l  "  V  '  h1_>1  (ai  "  ai-l) 


i  -  (1)  n-1 


where  c  and  c  are  presumed  to  be  zero: 
o  n 


c  -  c  -  0 
o  n 


Once  Che  coefficients  chrough  are  known,  we  have  a  sec  of 

polynomials  which  are  excellent  for  interpolation  between  x^^  and  xi+^  .  As 
in  each  x^  not  only  the  value  but  also  the  slope  and  the  curve  of  the  two 
neighboring  polynomials  are  identical,  S^(x)  is  also  applicable  to  determine 

t  i» 

S^tx)  and  S^(x)  of  a  pointwise  given  function  between  those  points: 

V(x)  1  bi  +  2  c±  <*  -  *±)  +  3  di  (x  -  Xj)2 

Si"(x)  i2c1  +  6di(x  -  x±) 

In  WING  the  subroutine  F  R  0  F  I  L  follows  two  options: 

L04  ■  1  Airfoil  Analytical  Given 

L04  ■  2  Pointwise  Given 

For  LOA  *  2  system  (8)  is  solved.  With  (7)  the  coefficients  can  be  re¬ 
created  at  any  time.  Thus  it  is  possible  to  read  in  the  geometry  of  any 
reasonable  airfoil  and  obtain  good  approximations  for  position,  slope  and  curve 
at  any  station  of  it.  These  values  are  needed  for  the  steady  boundary  conditions 
in  BOUND  called  from  RAND  and  SHOCK. 

3.7  RESULTS 

In  this  chapter  WING  -  results  are  compared  with  (2)  ,  Teipel's 
linear  and  nonlinear  airfoil  results,  using  the  method  of  characteristic  and 
with  Verdon's  (18)  analytical  results  for  the  velocity  and  pressure  distribution 
over  a  flat  plate. 

Figs.  18  through  23  provide  a  comparison  of  the  Teipel  -  with  the  WING 
results.  Although  it  can  be  said  that  the  linear  solutions  (t  •  0)  generally 
agree  quite  well,  this  is  not  true  for  higher  Mach  numbers,  as  can  be  seen  in 
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Fig.  20  for  M  “  1.4  .  For  this  case  the  real  part  of  Cp  shows  considerable 
differences  distributed  toward  the  TE  .  For  r  +  0  there  are  differences  dis- 
buted  over  all  cases.  This  was  already  noted  by  Chadwick  (4)  and  Strada  (S)  who 
argued  that  the  deviations  could  be  caused  by  different  difference  equations, 
averaging  procedures  and  number  of  grid  points.  However,  this  could  not  be 
proved  because  Telpel  does  not  expose  his  complete  set  of  finite  difference 
equations. 

This  work  does  not  show  a  comparison  with  Chadwick's  results  (4)  obtained  for 
airfoils  t  +  0  and  wedges.  Nevertheless  this  has  been  done.  It  shows  excel¬ 
lent  agreement  In  all  cases  no  matter  whether  airfoil  or  wedge.  Thus  it  can 
be  said  Chat  WING  Is  at  least  equivalent  to  Chadwick's  solution  over  the 
airfoil. 

Further  WING-  results  are  compared  with  Verdon's  work  (18),  which  pro¬ 
vides  analytically  derived  results  over  the  flat  plate  and  downstream  of  it 
into  the  wake. 

First  it  should  be  noted  that  the  Cp  -  distribution  for  0  x  _<  1  is 
very  good.  This  can  be  seen  In  Fig.  24  and  25.  The  disagreement  for  the  plunge 
motion  in  Fig.  25  looks  appreciable  only  because  of  the  extended  scale.  The 
original  Verdon  plots  In  this  area  are  rather  hard  to  read  because  of  his 
desire  to  show  the  wake  pressure  distributions  rather  than  those  over  the  airfoil 
for  the  zero  upwash.  One  of  his  results  is  that  Che  assumption  of  v^  *  0  on 
the  slip-line  is  wrong. 

It  has  to  be  Cp  *  0  .  With  this  assumption  he  gets  a  v^  -  distribution 
on  the  slip-line  shown  in  Fig.  26  and  27. 

The  system  of  equations  used  In  WING  does  not  presume  cp^  -  0  and 
cp^  ■  0  but  only  cp^  ■  cpL  It  turns  out  that  |cp|  on  the  slip- line  Is  of 

the  order  0.000001  .  The  upwash  behind  the  airfoil  obtained  by  WING  is 
shown  In  Fig.  26  and  27  for  1  _<  x  _<  4.6  .  For  this  range  the  agreement  is 


considered  to  be  excellent  for  pitch  and  plunge.  The  reason  for  not  showing 
results  in  the  area  x  >  4.6  is  storage  difficulties  in  the  time  sharing 
system  of  the  used  IBM  360/67. 

If  we  proceed  from  the  slip-line  into  the  wake  field,  Verdon  results 
versus  WING  -  results  are  shown  in  Fig.  28  and  29.  Again  the  agreement  is 
very  good.  The  total  unsteady  pressure  along  characteristics  with  origin 
x  *  1.08  and  x  ”  2.0  from  the  LE  is  shown.  In  this  way  the  pressure  field 
over  the  wake  can  be  represented.  Fig.  28  and  29  are  very  important,  as  the 
single  airfoil  is  only  the  first  step  to  the  cascade. 

The  good  agreement  with  Verdon's  results  justifies  the  method  of  charac¬ 
teristic  approach  for  the  problem  of  the  oscillating  cascade.  The  advantage 
of  this  approach  is  the  flexibility  with  which  characteristic  computational 
procedures  can  be  designed. 
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Uruckverteilung  C,  (Realteil)  fUr  ein  Parabelbogenprom 
mil  dein  Dickenverhaltnls  t  _  0,01 
(Parameter  :  reduzierte  Frequent  k). 


Pressure  Distribution  (Real  Part)  from  WING,  Plunge  Motion 


-to  -05  0  0,5  „  10 

Abb.  5  0.  —  Druckverteilung  C,  ( Imaginirteil)  fur  tin  ParabelbogenprulU 
mUdem  Dickenverhaltnis  r  —  o,o  j 
(Parameter  :  reduzierte  Frequeiiz  k). 

Fig.  19A.  From  (2) 


Fig.  19B.  Pressure  Distribution  (Imaginary  Part)  from  WING,  Plunge  Motion 


Fig.  20B.  Pressure  Distribution  (Reel  Part)  from  WING,  Plunge  Motion 
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Fig.  20A.  From  (2) 


Abb.  <j  a. 


—  Druckverteiiung  2p  (Realteil)  fUr  ein  ParabelbogenprofU 
mit  dem  Dickenverhaltnis  t  »  0,04 
(Parameter  :  reduzierte  Frequenz  Jr). 


1  Abb.  9  *.  --  Druckverteilung  2,,  (Imaginftrteil)  (Ur  eln  Parabelbogenprufii 
mit  dem  Dlckenverhiltnis  r  =  o,o4 
(Parameter  :  reduzierte  Frequenz  k). 

Fig.  2IA.  From  (2) 


Fig.  22B.  Pressure  Distribution  (Real  Part)  from  W  I  »  G  r  Pitching  Motion 


Abb.  .3 «».  -  Druckverteilung  (Realteil)  fUr  ein  Parabelbogenprofll 
mlt  dem  Dickenverhaltnis  ;  >  o,oi 
(Parameter  :  reduzierte  Frequenz  k). 
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Fig.  22A.  From  (2) 
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Fig.  26.  Upwash  on  Airfoil  and  Wake  for  Plunge  Motion  from  (18)  Compared  with 
WING  -Results 
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Upwash  on  Airfoil  and  Wake  for  Pitching  Motion  from  (18)  Compared  with 
WING  -Results 


Cp  1 


Figt.  28.  Pressure  Distribution  Along  Wake 
Characteristics  for  Pitching 
Motion  from  (18)  Compared  With 
WING-  Results 
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Fig.  29.  Pressure  Distribution  Along  Wake 
Characteristics  for  Plunge  Motion 
From  (18)  Compared  With  W  I  H  C  - 
Results 
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3.8  Manual.  Sample  Data.  Listing  and  Output  of  WING 

cx>x>xxxxx>x>xxxx>xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>xxxxx>*>>xxxxxxx 

rXXHmmi*H)IX]tXlXXXXl)tXXXXXXXXXXXXlXXXXXXXXXXXX..)LXXXlDLXX]£XXiLXXJLXXX 
C  CSCI  HATING  SINGL:  AIRFOIL  FOR  MACH.GT.l 

C 

- &€^HrF>--8-fc-rV-rA-lf  FSf  - 

CCRPLFX-16  ELtRI.ES 

COMMON  /  E  /  /  ALG.ALl  ,AM  ,C1  ,AK,  I  ,  IS,  IW  _ 

~  - COWCR/  EC/~T»  B,  C  > C>  »  C2YCX2  »OYDXU  »a  I  ,1  1,T2 

COMMON /  SP  /  XS12.50)  ,YS(2,5G) t A (50,4)  ,F(2,5)) 

- CCmCN/SCW  ^U,4l,i:i(A),C5(4» - - 

CCMMCN  V  (  2  »  25  *2  5  )  »X (  2 *25  ,2 5 )  ,P (2  ,25 )  ,U ( 2 ,25  ,25) , PS  I  (2, 25, 2  5 ) , 
FG< 2, 25,251  ,AL<2,25,25)  ,Y < 2 ,25, 25) , C ( 2 ,3  >,DX(2) ,IN(2 ,25)  , 

- F?X  (2,2-5  »  tP-S  t-z-,-20-  >  ,-PtH  2  ,20  >  ,T£-T  (2) ,TFC(20  Y - 


CPT  ICNS: 


LC 2  *C 
=  1 

~1C3  ~C~ 
=  1 

LC4  =1 


CNLY  PRSSfLRC  DISTRICT  ION 

STOP - 

PITCH 

PLJNG'i 

-NC-frAKrr - - -  - — - - 

WAKO  SHALL  6"  COMPUTED 

slrfac::s  ar.:  analytically  gi vtn 

"wFITCfT  (SC  iTAKT!  i 
SURFACTS  APE  PCI NTWI Sc  GIVEN 

LB _ _ CrTNiTC  n.U  Tk?  «?I.EF\rS _ 


K  V  =25  _ _ 

PS  AC  <4 » SS9 )  ’lQ1,LC2  »  L  33  »L34 , MA 
IFILC1.FC.2)  GOT C  101 
THtCA  7ECT21 L03  =T 
MX  =  MA 

CALL  CftCFU.  <fcE*LS».»Tl  ,T2  ,.\X-1 - 

READ (4, 1030  )  AK , A*  ,C  ,6  ,DX (  1) , OX ( 2) 
IFIAM.EC.C.)  GOT  C  1C2 

„ _ M  AIN  PROGRAM 


WRITS(  1,1C16)  K 
C  _  ENC  CF  M  INPPCUsTm  ‘ 

Above  Is  shown  the  beginning  and  the  final  of  the  main  program.  The  options 

LOl  through  L03  determine  what  the  program  does.  L04  gives  the  information  how 

» 

the  surface  is  given,  needed  in  PROFIL.  With  MA  we  set  how  many  gridpoints 
we  want  to  distribute  approximately  equal  spaped  over  the  airfoil.  WING  has  a 
built-in  stepsize  control,  which  changes  the  input-steps ize  DX(I)  ,  if  it  turns 
out  to  be  too  large  or  too  small.  However  it  is  a  good  idea  to  chose  DX  correctly 
because  the  iteration  may  increase  the  CPU  -  time  severely,  if  DX  is  far  away 
from  the  proper  value. 

For  that  purpose  Fig.  30  gives  an  indication  of  the  order  of  magnitude  of 


DX  for  14  points. 


I 


For  L04  »  0  NT  determines  the  number  of  points  on  the  blade  and  IKP 
sets  a  flag  to  print  out  the  input  data. 

IKP  -  0  NO  OUTPUT  OF  (X,Y) 

•  1  OUTPUT 

SP  is  a  scaling  factor  to  make  the  Input  data  non-dimensional.  If  the 
chord  Is  already  1  ,  then  SP  -  1  .  Otherwise  SP  Is  the  characteristic  length 
normally  the  chord.  L04  ■  2  changes  the  airfoil  Into  a  symmetric  wedge  with 
the  slope  WE  in  degrees  and  unit  chord.  Fig.  31. 


Fig.  31.  Wedge  Geometry 

For  L04  ”  0  the  x,y-coordinates  of  the  airfoil  are  read  in  accordance 
to  the  format  statement  1001.  The  airfoil  shape  can  be  examined  prior  to 
entering  WING  in  the  test  program  TEST  as-  shown  in  chapter  5.  TEST 
is  a  preparing  program  for  the  airfoil. 

If  the  airfoil  is  given  by  another  function  than  Eq.  (9),  one  has  to 
change  the  statements  in  BOUND  which  compute  y'  -  DYDX  and  y"  -  D2YDX2 
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After  leaving  PR0FI1  there  Is  another  read  for 

AK  -  k 

AM  -  M 

C  ■  ae 

B  -  x  -  b 
o 

DX(1)  -  STEPS IZE  ON  THE  UPPER  SIDE 
DX(2)  -  STEPSIZE  ON  THE  LOWER  SIDE 

If  the  run  Is  finished,  WING  jumps  back  to  this  line  and  expects 
changed  data  for  this  airfoil.  For  M  -  0  it  jumps  to  the  start  of  the  main 
program  for  mode  and/or  airfoil  changes.  However  for  L01  -  2  WING  is 
finally  terminated.  This  way  a  whole  series  of  airfoil  shapes  and  aerodynamic 
conditions  can  be  examined  .in  a  single  run.  It  should  be  noted  that  L01  -  0 
produces  a  complete  field  —  output  which  is  normally  not  necessary  and  rather 
long. 

For  L03  ■  1  the  wake  field  output  can  not  be  suppressed  as  it  is  the 
only  information  which  is  printed  about  the  wake.  The  whole  wake  may  be 
skipped  wit£  L03  ■  0  . 

Besides  the  normal  output  file  06  WING  has  a  second  one:  File  01  . 
Only  the  unsteady  pressure  distribution  over  the  surfaces  is  written  here.  This 
file  is  used  after  the  run  by  the  plot  program  PLOT  1  to  make  plots  of 
the  pressure  distribution  on  the  Tektronix  terminal  in  the  computer  center  of 
the  NPS.  (S.  Ch.  5). 

WING  contains  still  about  150  troubleshooting  statements.  All  impor¬ 
tant  subroutines  start  with 


The  next  statement  is  usually  an  if-statement  converted  into  a  comment  card. 
If  this  is  activated,  one  can  choose  here  the  conditions  for  a  complete  tracing 
of  this  particular  subprogram.  Thus 

If  (IW.NE.O)  IKK  -  1 


would  trace  this  program  during  the  whole  wake  -  computation.  One  can 
that  a  general  IKK  ■  1  will  result  in  irresponsible  amounts  of  paper. 


SAMP EL  DATA  SETS  : 


AIRFOIL  ANALYTICALLY  GIVEN: 


.El.LEs  FIl- _ FTQ4FQ01  PI _ NAVAL  P  0  STGR  AC  L AT  2 


L1C1  16 
- 1—3-1 


- 1  .01 

_ g-  "1 

2’7 

1  .00 
0.60 

-■ - ■>-.  - 

1.20 

1.20 

- -  ;.»■ 

1.4 

1.4 

V  A 

«nmu 

•  • 

c»oc 

0.467S-02 
0  .46  7^— 02 

0  .467E-C 2 
0.46700  2 

0.3C 

_ LLC1  16 _ 

A  •  C  J 

C.00 

T  m^T 

1.4 

we  > 

0.5 

0 . 4tb  7if  *02 
0.467£-02 

J.407E-C2 — 
0.467  E-Q  2 

o  .Cc 
1.00 
- C-.2C 

C.co 

1.20 

1.  2J 

20 

r 

1.4 

1  i  4 

0.5 

1  5 

0.467E-02 

.  A47  C  »  O 

0.4672-C2 

0.0 

2222  22 

l  ew 

0.0 

0  *  J 

0  .0 

y.o~ 

OPTIONS: 

(Refer  to  WING) 


-  Only  Pressure  Distribution  (1) 

-  Plunge  (1) 

-  No  Wake  (0) 

*  Analytical  Surface  (1) 

-  16  Points  on  'ach  side 


AIRFOIL  DATA  T1  -  T2  -  0.01 

For  M  -  1.2 

-  1.4 
b  •  0.5 

DX  (1)  -  DX.  (2)  -  0.00467 

The  program  runs  through  k  -  1.0  ,  0.6  and  0.2  .  After  M  -  0  we  want 


with  the  same  options  the  linear  case  T1  -  T2  -  0  for  k  -  1.0  and  0.2  . 
Finally  we  stop  WING. 

For  the  option-set  1001  the  same  data  would  be  computed  for  the  pitch 
mode.  The  sample  output  is  the  result  for  the  first  run  of  this  data.  Figs. 
18b  and  19b  show  the  plots  of  the  pressure  distribution  which  we  obtain  with 


the  data  above.  Fig s.  22B  and  23B  show  the  same  for  the  pitching  mode. 
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AIRFOIL  POINTWISE  GIVEN 


-flli:  FU.? 

-  FTC4 

F001  °1 

N _ H_ 

1CCC  14 

)  c  i 

C  n3 

17  n 

ICO'.' 

3.0 

5.21_ 

11.53 

17.84 

24.14 

"0  .20 
30.45 
_ ^  C  .0  29 

1  b  5 
36.75 

l  *45® 

-O. 1 10 
42.  C5 
, 0.074 

- »'J  .  J  5  0 — 

49.35 

C.C67 

- »U.  JO'S - 

55.65 

q.as7 

61.95 

C.C58 

_ y.5i 

68.2  5 
0.095 

ICC  c  c 

7475  r 

O.Gf 
r  r 

61.83 

0.0516 

n  a 

8  7*21 

0.016 

rn 

-0.C35 

O.C 

— o:io 

6  .29 

ICC'.' 

12.  55 

ICO. 

13  .90 

10c. 

25.21 

-0.26 

31  .53 
_ -f  .7$ 

-1.06 

37.35 
~2  .93 

-1.65 

44.  16 

-2.5c 

- -2Tl  2 - 

50.  51 
-2.97 

- -2t49 - 

56.33 

-2.34 

63  .15 
-2.6C 

6  5.47 
-2.29 

1  \  A 

75773 

-1.54 

n  n 

82  .Jt 
-1.57 

n  r 

83.36 

-1.17 

r*  ^ 

-0 .70 

1.5 

^ I J 
1.55 

ICC'.' 

1.4 

ICO.'  ' 

3.5 

uo . 

0. 5445-13  1.4545-C2 

u  •  c 

0**0  oo 

C  •  C. 

c.  c 

0  •  0 

0  •  C  C  •  ) 

2222  22 


OPTIONS: 


IN  P  R  0  F  I  L 


-  ONLY  PRESSURE  DISTRIBUTION 

-  NO  PITCH 

-  NO  HAKE 

-  POINTWISE  GIVEN  SURFACES 

-  16  POINTS  ON  EACH  SIDE 

-  T1  -  0.01 

NOT  IMPORTANT 

-  T2  -  0.03 

-  N  -  17  POINTS  GIVEN  FOR  EACH  SIDE 

-  IKP  -  0  NO  READ-BACK  OF  DATA 

-  SP  -  CHORD  -  100 


This  example  shows  the  different  input-type  for  L04  -  0  .  The  profil  thick¬ 
ness  T1  and  T2  is  not  Important  any  longer.  But  the  variables  have  to  be 
defined  because  they  appear  in  the  output.  They  can  be  used  for  identifying 
purposes . 

Here  x-location  and  y-value  are  given  in  percent  of  chord,  therefore 
SP  -  100  . 
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4.1  The  Physical  Difference  of  the  Two  Problems 


The  name  of  the  program,  developed  to  calculate  the  Inlet  flow  of  a 
staggered  finite  cascade  with  thick  airfoils  is  CASCADE. 


/ 


Fig.  32.  Staggered  Cascade  of  Airfoils 


Nearly  all  basic  steps  to  simulate  this  problem  are  already  done  in  WING 
and  therefore  described  in  Chapter  3.  However,  there  are  two  major  differences 
which  have  to  be  considered  in  its  mathematical  treatment. 

1.  Only  the  first  blade  is  exposed  to  the  free  stream  flow  without  any  distur¬ 
bances.  This  means  for  the  cascade  of  flat  plates  already  that  the  perturbations 
of  (n  —  1)  blades  hit  the  n-th  blade  and  have  influence  on  the  development 
of  the  flow  and  the  shocks  at  this  airfoil.  For  the  cascade  of  curved  blades 
there  is  an  additional  consequence: 

The  constant  value 


c- 


-  1) 


3/2 


from  Eq.  (2.15)  can  not  be  used  any  longer,  as  in  general  the  steady  flow  will 
not  have  the  free  stream  velocity. 
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Similarly,  Che  wake  slip  line  will  not  be  parallel  to  the  x-axis  but 
It  will  rather  have  the  direction  of  the  field  in  front  of  that  particular  blade. 
This  is  the  reason  why  the  wake  slope  in  W  I  N  G  was  not  simply  set  to  zero. 
Because  of  these  difficulties  the  first  approach  to  the  cascade  including  a  thick¬ 
ness  effect  was  made  with  airfoils  whose  upper  surface  were  flat.  This  way  the 
steady  field  in  front  of  each  new  blade  was  identical  with  the  free-stream  field 
(see  151). 

CASCADE,  however,  permits  curved  lower  and  upper  sides  and  is  able 
to  consider  these  differences. 

2.  As  in  actual  turbomachines  blade  flutter  is  often  observed  with  a  phase  lag 
from  blade  to  blade,  the  mathematical  treatment  has  to  permit  this.  The  phase 
lag  is  called  y  and  has  the  range 

-  180°  <_  u  1  +  180° 

which  covers  all  cases. 

The  introduction  of  the  phase  lag  can  be  done  relatively  easily  and  is 
shown  in  Section  4.3. 

4.2  The  Constant  Value  Along  the  Characteristics 
We  consider  Eq.  (2.13)  : 


(where  in  this  case  u  is  not  the  phase  lag) 

as  long  as  the  incoming  characteristics  originate  in  the  freestream,  u  is 
zero  and  therefore 


(M2  -  1)3/2 


(Fig.  1) 

This  still  holds  in  a  cascade  of  flat  plates,  because  here  the  steady  field 
is  identical  with  the  freestream  field.  This  is  also  true  for  a  cascade  with 
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blades  which  have  flat  upper  surfaces. 

It  is  not  valid  any  longer  when  we  permit  curved  surfaces  on  both  sides, 
as  the  steady  inlet  flow  field  for  the  blade  (n  _>  2)  will  in  general  be  de¬ 
flected.  Therefore  y  on  the  characteristics  is  not  zero  and  has  influence  on 


Fig.  33  shows  the  geometry  of  an  incoming  characteristic  which  is  reflected 
into  the  cascade. 

In  A  it  has  to  be 


Fig.  33,  Reflection  of  Characteristics 


Thus  we  get  \ A  by  solving  for  it,  as  y^  is  known  from  the  steady 
boundary  conditions. 

The  next  step  provides  the  new  constant  along  the  a-  characteristic. 


This  is  now  the  value  which  has  to  be  applied  in  B  in  order  to  solve  for 


XB  * 


CAa  "  CB8 


XB  " 


3/2 


A 


‘  ^A  +  ^ 


2/3 


with 


From  Eq.  (1)  we  obtain 


\  ■  tc„  -  2  uA  +  u//3 


(3) 


(4) 


In  the  case  of  p^  -  Pg  *  0  ,  Eq,  (4)  reduces  to  the  flat-plate  solution 


Eq.  (4)  contains  some  useful  physical  information.  The  maximum  deflection 

6  which  is  connected  to  each  Mach  number  M  cannot  be  used  for  the  leading- 
max 

edge-slope  of  an  airfoil  in  a  cascade.  Instead  it  has  to  be  considerably 
smaller  due  to  the  double  deflection  in  A  and  B  .  Only  in  case  of  a  flat 
upper  surface  (5),  the  slope  in  B  could  be  .  The  general  case, 

and  Pg  not  zero,  demands  smaller  deflections  if  detached  leading  edge  shocks 
shall  be  avoided.  This  is  a  necessity  according  to  our  earlier  assumption  of 
weak  shocks. 

The  calculation  of  the  particular  constant  value,  valid  along  the  respective 
considered  characteristic  is  done  in  C  0  N  S  T  1  . 
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Each  time  the  unsteady  properties  ^  ,  v1  or  Y  are  computed,  the  result 
is  always  the  amplitude  of  the  oscillating  function 

?(x,y,t)  -  A(x,y)  •  eikt 

Therefore,  if  we  consider  the  two  neighbouring  blades  (n-1)  and  n 
where  n  leads  the  oscillation  with  the  phase  lag  y  ,  we  can  express  this  for 
the  time  t  as  follows 


F  -  A  •  eJ 
n  n 


*«-!  *  Vl  ’  *1(kt-U> 


For  the  single  airfoil  we  did  not  need  to  write  the  exponent  expression 
because  it  was  always  a  common  factor. 

We  reconsider  this.  For  an  example  we  take  Eq.  (2.40)  which  is  the  used 
unsteady  shock  polar.  The  first  of  those  two  formulas  reads  now,  if  written 
explicitly 


u^  •  e  ■ 


(\  Gy  +  i  m2  G)  •  elkt  +  G»3  ^  +  m4  Vj)  ei(kt_lj) 


U1  *  “l  Gy  +  1  m2  G  +  (m3  U1  +  m4  V 


We  see  that  the  phase  lag  does  not  cancel  out.  If  we  do  this  for  all  the 
equations  used  in  W  I  N  G  ,  we  find  as  a  general  rule:  the  term  exp  (ikt)  always 
can  be  dropped.  Each  time  when  properties  of  the  previous  blade  appear  in  the 
equation,  they  have  to  be  multiplied  by  exp(-  iy)  ,  Thus  we  reduce  the  magnituds 
it  the  (n-l)st  -blade-values  with  the  phase  lag  to  the  actual  size  they  have 


when  they  influence  the  nth  -blade-properties.  These  are  the  unknown  ampli¬ 
tudes  of  the  oscillating  functions  connected  to  the  nth  -blade. 

Eq.  (5)  gives  an  example  how  the  equations  change  from  WING  to 
CASCADE.  It  is  not  necessary  to  show  the  whole  set  of  finite  difference 
formulas  because  they  can  be  generated  simply  by  using  the  concept  outlined 
above . 


Fig.  34.  Reflected  Shocks  in  the  Passage 

The  subroutines  for  the  general  and  the  boundary  step  can  be  taken  as  they 
were  used  in  WING  for  the  unsteady  field.  RANDS  is  changed  in  so  far, 
as  the  phase  lag  has  to  be  added  to  the  system  of  equations.  The  steady  field 
is  not  affected. 

For  the  field  behind  the  reflected  shocks  in  the  passage  one  has  to  be 
careful,  see  Fig.  34. 

It  has  not  only  to  be  considered  that  the  oscillation  of  field  b  is  ahead 
of  that  in  field  a  ,  according  to  the  phase  lag  u  .  But  also  it  is  ahead  of 
field  c  ,  which  is  again  connected  to  the  movement  of  blade  1  .  This  is  done 
by  reversing  the  sign  of  u  in  RANDS  for  this  case. 


4.4  The  Organization  of  the  Program 


As  the  complication  of  Che  reflected  shocks  and  Che  fields  behind  them  in 
Che  passages  of  a  cascade  is  considered  a  rather  complex  procedure,  Che  goal  for 
Che  design  of  Che  program  was  to  keep  It  as  straightforward  as  possible.  There¬ 
fore  the  convenient  array  organization  from  WING  was  adopted  and  extended. 
The  main  variable  fields  have  the  form 

X(  IB,IR,M,N  ) 

The  part  (...,M,N)  corresponds  to  Fig.  11  and  12.  It  allows  the  separa¬ 
tion  of  fields  on  the  upper  and  lower  surfaces.  IB  indicates  tha  blade,  which 
is  connected  to  the  respective  field  and  IR  counts  the  shock  in  the  passage. 
Fig.  34.  This  notation  allows  again  repeated  use  of  the  same  routines  when  only 
IB  and  IR  are  set  correctly.  Again  throughout  the  whole  program  upper  and 
lower  sides  are  indicated  by  I-l  and  1*2  .  The  index  1  is  used  to  control 
the  M,N-notation  and  the  sign  like  it  was  done  in  WING. 

In  CASCADE  there  appear  three  different  kinds  of  flew  fields  which 
are  shown  in  Fig.  34. 

Type  a  is  the  field  over  the  whole  upper  surface.  The  procedure  is  here 
the  same  as  in  WING.  Computation  of  the  b  -field  follows  also  WING  , 
but  it  is  stopped  when  the  shock  crosses  blade  1  .  At  this  point  the  shock  is 
reflected  and  the  main  difference  in  the  subroutines  is  a  transformed  system  of 
coordinates,  because  the  origins  of  the  shock  and  the  system  of  coordinates 
have  to  be  identical.  This  transformation  causes  considerable  changes  of  the 
statements  in  SHOCK  and  FIND,  compared  to  their  counterparts  in 
WING.  However,  the  computational  sequence  is  not  really  changed,  but  the 
extension  of  those  subroutines  enables  them  to  identify  the  type  of  the  field 
and  to  make  all  necessary  changes  for  signs,  coordinates  and  termination  points. 


CASCADE  starts  with  blade  2  (IB-2)  exposed  to  an  Initial  field 

where  all  perturbations  are  zero.  After  evaluating  the  complete  upper  field, 
the  b  -field  is  computed.  This  is  terminated  when  the  shock  hits  blade  1  , 
which  is  assumed  to  be  a  fixed  flat  plate  for  this  first  step.  So  here  blade  1 
could  be  considered  a  wind  tunnel  wall.  When  all  the  reflections  in  this  first 
channel  are  done,  the  IB- 2-field  is  copied  to  the  IB-l-field  .  Now  the 
former  can  be  used  again.  From  this  point  on  blade  1  is  an  oscillating  airfoil 
with  the  given  shape. 

CASCADE  has  three  output  files: 

-  File  07  for  complete  field  output  and/or  the  final  pressure  distribution 

-  File  06  is  a  documentation  which  allows  to  follow  the  iterations  and  the 
main  steps  from  blade  to  blade.  Like  WING,  CASCADE  contains 
trouble  shooting  statements  which  can  be  activated  by  IKK-1  for  the 
desired  subprogram.  For  a  general  IKK-0  File  06  will  be  limited  to  a 
few  pages.  IKK-1  will  print  a  complete  tracing  of  the  particular 
routine,  which  increases  File  06  significantly. 

-  File  01  contains  geometric  data  of  the  cascade  and  shock  configuration. 

It  is  used  as  an  input  file  for  P  L  0  T  2  which  produces  plots  like 

Fig.  35  on  the  Tektronix  -  terminal.  P  L  0  T  2  is  described  in  Section  5.3. 

The  input  data  have  to  be  in  File  03.  They  are  shown  in  Section  4.6. 


35,  Cascade  A  and  B  Shock  Geometry  [15] 
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Finally ,  it  should  be  said  that  tha  organization  of  the  storage  arrays  is 
actually  a  waste  of  memory  space  because  fields  of  the  b  -  and  c  -  types 
(Fig.  34)  need  only  small  areas  whereas  a  -fields  demand  large  ones.  This 
expensive  way  was  chosen  in  order  to  make  a  general  program  clear.  If  one  con¬ 
siders  that  the  next  step  is  the  addition  of  the  wake  fields  for  each  blade  and 
that  these  have  to  be  much  larger  than  those  in  the  passages »  this  solution 
gives  an  approach  which  can  be  extended  analogous  to  WING.  The  desire  to 
save  storage  place  would  certainly  complicate  the  main  organization  and  increase 
the  number  of  subroutines  significantly. 

The  main  disadvantage,  besides  a  slow-down  of  the  computer  is  the  limita¬ 
tion  of  the  fields.  The  dashed  line  in  Fig.  35  was  not  produced  by  P  L  0  T  2 
but  it  was  added  to  show  the  limit  of  CASCADE.  Beyond  the  end  of  the 
headshock  for  the  first  blade  its  influence  has  vanished.  This  results  in 
completely  wrong  fields  behind  the  dashed  line.  Hence  the  fields  in  Fig.  35 
are  usable  only  up  to  blade  3.  The  arrays  in  CASCADE  used  in  this  work 
have  the  size 

X(2,3,50,20) 

They  can  be  extended  to 

X(2,3,KV,20) 

where  KV  has  to  correspond  with  the  first  FORTRAN-STATEMENT  of  CASCADE. 
Then  all  the  counters  and  Do- loops  are  dimensioned  properly.  The  number  of 
possible  blade-computation  is  thus  given  by  the  limitation  of  the  computer. 
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4.5  Results 


checked  for  which  results  already  exist.  Cascade  A  and  B  are  those  intro 


duced  by  Verdon  (15;17)  and  cascade  T  is  a  model  for  an  experimental  cascade 
used  by  Fleeter  (19)  for  which  Strada  (5)  gives  computer  results  for  the  inlet 


0.90226 


0.75054 


Fig.  35  shows  the  geometry  of  cascade  A  .  Cascade  B  -  and  T  are  shown 
in  Fig.  36  and  37.  As  CASCADE  is  not  completely  programmed,  it  is 
only  possible  to  show  results  of  the  inlet  flow.  We  compare  with  theoretical 
aerodynamic  data  obtained  by  Verdon  (15)  for  the  linear  cases,  which  are  identi¬ 
cal  with  those  computed  by  Bell  (9)  and  with  results  for  the  cascade  T  ,  given 
by  Strada  in  (5). 


Fig.  37.  Cascade  T  (5) 


Fig.  38  and  39  show  pressure  difference  distributions  calculated  by 
CASCADE  for  the  third  blade.  Considering  that  Verdon  Introduced  an  in¬ 
finite  cascade  and  that  Bell  gave  results  for  the  14th  blade,  the  inlet  flow 
computed  with  CASCADE  looks  very  promising.  The  differences  are  not  too 
significant  and  can  be  explained  by  the  low  number  of  blades  which  were  examined. 

As  CASCADE  and  Verdon- results  agree  sufficiently,  it  could  be  ex¬ 
pected  that  the  linear  data  given  by  Strada  and  Platzer  (  P-)  results  would 
coincide  very  well  with  CASCADE  computations.  Actually,  as  both  programs 
examine  the  second  blade,  the  distribution  of  the  total  pressure  coefficient 
agrees  exactly  for  both  sides  of  the  A  blade. 
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This  is  not  true  for  the  included  slope  effect.  Fig.  40  through  43  show 
computations  of  this  study  in  direct  comparison  with  Strada  (5).  The  upper 
surface  represents  the  linear  case  and  shall  not  be  discussed  because  of  good 
agreement.  However,  the  lower  surface  is  shaped  and  the  agreement  is  good  only 
at  the  leading  edge.  In  all  cases  results  of  CASCADE  for  the  total 
pressure  distribution  have  the  tendency  to  be  considerably  smaller  than  those 
presented  by  Strada.  There  is  no  real  progress  compared  to  the  Fleeter  Experi¬ 
ments  (19)  but  with  some  imagination  one  could  say  that  CASCADE  meets 
the  tendency  of  those  data  slightly  better.  It  is  remarkable  that  in  spite  of 
significant  differences  in  the  magnitude,  the  phase  angle  between  imaginary  and 
real  part  of  the  pressure  coefficients  agrees  very  well  with  Strada.  The 
difference  between  the  Strada  results  and  those  obtained  here  may  be  caused  by 
the  different  treatment  of  the  shock  and  remains  a  problem  to  be  investigated  more 
thoroughly  in  the  near  future. 
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4.6  Updated  Listing.  Data  and  Output  of  CASCADE 


If  one  refers  to  the  conment  cards  at  the  beginning  of  CASCADE, 
it  is  obvious  that  this  program  is  a  derivation  of  WING. 


C 

C 

-fb 


CA  SC ACc  CF  CSCILLATINC  AlRFCIlS  FOP  MACF.GT.1 


CCFFLl;X*€  U,  V,PSI  .G,  CYDXU 

EEKUBL^EtHs - 


REAL**  TX,TY,>X,YY,X,Y.AL»DlftJ2tD3»XPtALC,P,C3tAlZ 
,  GQU.MCUJ  6  f  /  AUQ,AM..AIC  ,Cl  »A  Urt-rl  F  >T  X-,-1Yr  I  *  ,  I' A  t  £T  rXX  ,Y* - 

CCHFCN/EC/  Tl,  t2, 1,  b,CYCX,  CZYCXZiOYDXUiAr  ;  =  I  ,1  1,1  9ACK,I  c 
COMMON /  5P /  XS(  2  »  SC)  ,YS(2  »5  C)  ,A  (2  »50  ,4)  ,R  (2,30) 

CCMHCN/S~Ct.  t  •ilt‘r»4t-vPH4^LSt  4> - 

COMMON  V (2 ,3,50, 2C  )  ,X(2,3, 5C,2C) ,P(2  ,51)  ,U( 2  ,3  ,53,2C  )  , 


C  LC1  =C 

C  *1 

COMPLETE  OUTPUT 

CMY  PRESSURE  Cl  STR  I  BUT  ION 

C  -  2 

C  LC 2  *C 

C  *  1 

-■"STOP - - 

PITCH 

PLUNGE 

LC2  =1 
c  *c 

r  _  i  r  a  - 1 

OC  THE  1.  PASSAGE 

CO  THE  1.  PASSAGE  NOT 

C  ”  *6 

SUR FAC cS  Ah!  POINTblSt  GIVEN 

C 

-e- 

c 

*■ 


FA  =  MAXIMUM  NUMEFR  CF  POINTS  CN  THE:  SURFACE  .  IT .  20 
l»AXS  -  -glAOCtWH^  Pg  -TfS  PRISSUR*  P  IS'Tft  I3UT! CN  fS  C-gl»-PUT-.?3- 
IBLA  =  FIRST  dLACE  OF  FIOLC  -  OUTPUT 


KV  =  5  C 

AI  -CMCUXIC 


0-4- 


102  REAC(3,595)  LG1 , LC2 , 1C  2 ,L0 4 , MA , FAXS , I BLA 

IFILCI.EC.Z)  GOT C  1C1 

- FAX«-s’FA-XS»l - 

MAXIMA 

IOC  ,CX(2) - 

IF  |AM.fc3.0.  )  GOTO  1C2 

- F6AC <3 .1C2G >  AMY.a,S1,«M - 


The  data  are  set  up  in  the  same  way.  There  are  five  additional  input 
variables.  Maxs  and  IBLA  are  explained  above.  IBLA  Is  only  meaningful  for 
L01*0  .  Then  for  example  IBLA* 3  starts  the  field  output  only  from  the  third 
blade. 
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The  ocher  three  variables  define  che  Cascade: 

ET  -  £  Stagger  Angle 

EM  ■  a  Distance  Between  the  Blades 
AMT  “  y  Phase  Lag 


See  Fig.  32. 

The  rest  of  the  Input  data  have  the  same  definition  as  those  In  WING. 
TWo  sample  data  sets  shall  be  shown: 


1st  Row  :  No  field  output,  pitch  motion,  no  computation  between  the  first  blade 
and  the  Imaginary  wall  (first  channel) ,  16  grid  points  on  each  sur¬ 
face,  they  are  analytically  given,  the  third  blade  shall  be  examined. 
2nd  Row  :  The  blades  have  flat  upper  and  thick  lower  sides 
3rd  Row  :  k,  M,  x  ,  Dx 


4th  Row  :  u,  b,  e  ,  m 


5th  and  6th  Row 


STOP 


2.  Pointvise  Given  Blades 


t- 1  HI: 

1CC016C2C1 

- Fli.3r 

*i— — 

4— il - 

- \AVAl  l 

ICC. 

0.0 

l  l  J 

5.21 

T T 

11.53 

17. G4 

24.14 

—  J  .  i  ft 

30.  4  5 

-  L  .1  a  b 

26.75 

-  -  '  4  A 

—  -  .  1  i  c 
43. C5 
”  -  r  7  4 

-  0  .  J  3  0 
49.35 
,7,  ?  7 

-0.005 

55  .65 
r\,nc7 

61.95 

66.25 
0.09  5 

74.  55 

C .  C  £ 

eo.se 

C. ?516 

6  7.21 
-.316 

”  “  J  •'  “3 

-0.0*5 

c.c 

X  L  v  •  J  J 

-  C .  1  0 
6.29 

l 

1.2  I  5 « 

C  .  0 

1 J . 

13.9- 

0.  0 

mo . 

25.2! 

-')  •  it 

31  .53 

—  1  .  i.’  c 

37  .35 
-?  -3  ^ 

- 1. 6  5 
44.13 
-  7  -  n  *» 

-4.12 

50.  5  1 

-7 ,07 

-6 .4S 

56.62 

-7.  ZU 

63.15 
-2  .6 C 

o  5  .4  7 
-2.29 

75. 7 £  . 
-1.94 

62#  '‘6 

•  0  C 

*.  •  ->  1 

66.  2  6 
-1.17 

-0 .7C 

0.26 

l1.  J  *  J  J 
-0.1* 

1  .55 

l 

■J  J. 

1.4 

J  .  0 

1 00  . 

>  .  5  4  4  -  C  3 

Ce  0 

1  r 

0  ^454C-C? 

-4  .4 

0.28 
-*?-  ? 

)  •  5 

1.55 
r  T  c 

9 

1.4 

*?-C 

C  •  3  3b 
t.  5441-03 

J  .454?-  J2 

0.28 

53.2 

1.55 

C.5 

1.  4 

2  2.9 

0.5446-03 
0.  325.  . 

0 ,454=-C2 

£  e  » J 

J.tS't  5 ■  (12 

222222222 


1st  How  :  Ho  field  output,  pitch  motion,  no  first  passage,  pointvlse  given 
blades,  16  grldpoints  on  the  surface,  2nd  blade  shall  be  examined; 

2nd  Bov  :  Identification  for  upper  and  lower  side  (no  real  Importance  here) , 

17  points  given  as  input  for  each  side,  the  geometry  of  the  blades 
shall  be  printed; 

3rd  Row  :  Chord  is  100 

46h  to  19th  Row  :  Input  geometry  of  blades,  according  to  subprogram  PROFIL 
20th  Row  :  k  ,  m  ,  ,  Dx 

21st  Row  :  y  ,  b  ,  m  ,  e 

TWo  other  cases  and  STOP 

The  output  of  the  pressure  distribution  for  the  first  case  is  shown  next, 
followed  by  a  listing  of  CASCADE  in  Appendix  B. 
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5.  The  Programs  as  a  Working  System 
5.1  TEST 


TEST  was  written  to  examine  the  blade  geometry  If  it  Is  polntwlse  given. 
CASCADE  and  WING  are  not  prepared  to  handle  shocks  which  are  caused 
by  a  changing  slope  over  the  airfoil.  Therefore  it  has  to  be  checked  that  the 
surface  has  no  turning  point. 

For  a  given  set  of  points  one  has  to  deform  the  PROFIT,  in  such  a  way  that 
the  curvature  of  it  never  changes  the  sign.  This  would  be  indicated  by  a 
changing  sign  for  the  second  derivative  of  the  surface  function. 

An  example  for  TEST-  input  data  is  shown  below: 


.0.  Cl 

0  .)3 

17  V 

'1  • 

o.o 

-0.26 

5.21 

Id! 

11.53 
— C  .11C 

17.34 

-0.05 

24.14 

-4.005 

2  o  •  4  b 

J .  0  29 
_ 61.05 

it,  li 

0.  )5t 

4  f>  ,  >  f. 

4  3  •  0  3 

C  •  C  7  4 

7  ^  ^ 

45  • 
0.16 
O  . a 

7 

55 .63 

0.  "57 

p 7,  ■>  i 

C.CS3 

93.5? 

i  •  j  i  5 
i  r  r  '  > 

*  -J 

.  «•  C 

-  •  ».* 

'  J .  *  b 

rs  ^ 

.■  •  j 

L6 

i.  f  1 6 
^.0 

1  t  J  J 

■  .o.r 
.  -0.26 

-  4  L  1 J 

:>•  29 

-1  ,38 

12.55 

-1.65 

1 1 dl 
-2.12 

— rr*. - 

25.2  l 
-2.49 

3  i  .  b  3 
•  -2.76 

A  *  T  \  c 

3  f  ,  i  3 
-2.33 

<•  C  ,  U  7 

4  4.1ft 
-2.0  ! 

7  c  ,  7  p 

J  6 . 3  1 

-2.97 

56  •  j  3 

-  Z  .34 

>>  t  3 ,5 

-2.60 

54.66 

-2.2S 

100.30 

-US  4 

.c.c 

-1  .J  7 
_0.9 

-1 .17 
.0.1 

-0.71 

-0.10 

lu  ). 

■■■  rw".  — 
in. 

1 00. 

10J. 

TEST  reads  from  File  05  and  writes  the  result  x,  y£,  y^,  y£  and  y”  on 
File  06  and  01.  File  06  can  be  printed  and  shows  the  original  input  data,  the 
Interpolated  surfaces  and  besides  the  derivatives  mentioned  above,  the  coefficients 
of  the  cubic  splines  for  each  side.  File  06  contains  only  x,  y,  y*  and  y"  . 

It  is  used  as  an  input  file  for  P  L  0  T  1  which  produces  plots  like  Fig.  44 
and  Fig.  45  with  it.  Fig.  44  shows  y*  of  the  two  PROFIL  sides  and  Fig.  45 
shows  y'  .  PL0T1  is  explained  in  Section  5.2. 
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Fig.  45.  Blade  Geometry  and  y1 


*p5i 

c 

c 

c 


c 

c 

c 

c 

c 

c 


TEST  LISTING 


WJ 


MMON/SP/  XS(2»50)»YS(2*50)»A!50,4),R!2,5C) 

TEST  OF  THE  SPLINSFUNCTICNS  FOR  THE  PROFILSURFACES 
LC4  *  1  ANALYTICALLY  GIVEN 
*  0  POINTWISE  GIVEN 


CALL  PRCFIL!LQ4»Tl»T2»N>) 
COMPUTATION  OF  THE  SPLINE 
DC 

(I.EQ.l)  WR ITE<  6 < 100 2 . 

) 


-  COEFFICIENTS 


WR  ITE( 6 » 100  2 ) 
WRITE !  6 , 1002 ‘ 


49 


1004 


5 

6 


10 

30 

188? 

100  2 
1003 
1005 


MM 


.  30  1=1,2 
IF(I.EQ.l) 

I F  < I .EQ *2 ) 

DC  49  K*1 ,h a 
A(KV 1 ) »YS( I *K) 

A  CK ,3 ) *  R!I,K| 

H*XS (I»  K+i ) -XS! I »  K) 

A!K,2)»!Y§! I,K+1)-YS! I,K))/H-H*(R!I,K+1)+2.*R! I,K) )/2. 
A(K,4)*(R(I,K+1»-R(I,K) )/(3.*H) 

WRITE(6,1001) 

DX*l./69. 

MM*70 

WRITE ( 1 ,1004) 

FORMAT (  13 ) 

DC  10  M»1.70 
X*DX*1 M— 1 l 
OC  5  K»2,50 

i?F(xJ(I,» 

CONTINUE 
H«X-XS( ItJI 

DYDX»A< J,2 )+2.*A!J,3)*H+2.*A!J»4)*)-*F 

02YDX2*2.*A!J,3)+6.+A! J,4)*H 

Y*A!  J.l)+A<  J,2)*H+A!J,2)*H*H+A(J,4)*M>H*H 

WRITE!  6 1 1000)  X,  Y ,0Y0 X , C2Y0X2 ,  A  < J  ,1 1  ,A  (  J  ,2  )  ,A  ( J ,3 ) ,  A I J, 4) ,  J 
WRITE (1^1005 )  X » OYDX , C 2YCX2 


iK)  .GE.X )  GOTO  6 


CCNT 
MR*0 
WRITE  C 1 


r 1 0 04  )  MM 


FORMAT! IX, 8 12X,E12.5)  ,141 
FORMAT! IX, 7X,'X',13X, *Y*. 
F'SPLINECCEFFlCIENTS  :',/) 


9X,  'OYDX  SEX,'  D2Y0X2S1CX, 


FORMAT !1H1,1X,'PR0F] 
FORMAT (lhl, IX,' 
PCRMAT ( 3F10.5 ) 


LPP{ 

LCWJ 


SURFACS 

SURFACI 


,//) 

,//) 


END 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.^x’XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


SUBROUTINE  PROFIL ! L04.T 1 ,T7, N ) 
COMMON/ SP/  XS!2t5oT*Ya (i ,50) ,A 


PREPARATION  OF  THE  PROFIL 


1000 


1801 


READ! 5 , 1000 )  TltT2,NT,LC4 
FORMAT l 2F10 .5,2121 
IF1L04.EC.0)  READ (5 , 100 1 ) 
OC  8  J»l,2 
I  2*0 
N*NT 

iflL04?Ni!o}*STO  12 

DC  9  K-1.4 

WR ITE1 6,2001 ) XS (J,M) ,XS(J, 
fcIKat* 

FORMAT ( 


A ( 50 ,4 ) ,R! 2 ,50  ) 
-  SURFACES 

SP 


M+l ) , X J 
M+1 ) , Y! 


)  YS 


!  J  ,M+2 ) , XS ! J , M+3 ) ,X§(J,M+4) 
.  !J,M+2) ,YS!J ,M>3) ,Y?1 J,M+4) 

.  ..  _  M+l),XS!J,M+2),XS!J,M+3) ,XS(J,M+4) 

S^J ,M) , YS  1J,M+1) ,YS(J,M+2)  ,YS!J,M+3) tYS!J,M+4) 
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I F (YS ( J ,M+4  ) . EQ . 100  . )  GCTQ  7 

9  CONTINUE 

7  CONTINUE 

OC  2  LL*1»N 
X<(  J,LL)*XS(  J,LL)  /SP 
2  YS(J,LL)*YS(J,LL)/SP 

WR  IT  -  ( 1*1004  )  NT 
1004  FORMAT (13) 

OC  16  KV*1 *  NT 

WRITE ( 1» 1005)  XS( J,KV)  , YS< J , KV) ,Y S ( J ,KV ) 

16  CONTINUE 

IF(L04.EC.O)  GOTO  3 
12  DX*1  •  0/  ( N-l  ) 

I  1=(-1)**(  J  +  l) 

DC  20  K»1,N 
XS(J»K)*(K— 1)*DX— 0.25 

2  0  YS<J,K)«4.*T*XS  (  J ,K)* (  l.-XS ( J  » K  )  )  *1 1 

C  TC  ENTER  THIS  PART, THE  SURFACES  SFCULD  ALREACY  BE 

C  GIVEN  PCINTWISS 

C 

3  CONTINUE 
C 

C  INTERPOLATION  THROUGH  COeiC  SPLINES 

IFtT.NE.O.  .OR.  LC4.EC.C)  GOTO  51 
DC  52  1*1, N 

52  A  (  1, 1 ) *0  • 

GOTO  53 

51  CONTINUE 

DC  10  1*1, N 
A  ( I  ,3  ) *XS( J , I  ) 

10  A  ( 1 ,4)  *YS (  J  ,1 ) 

C  MATRIX  CF  COEFFICIENTS  AND  RIGHT  SICES 

C  K*N-2 

DC  25  I *1 , K 

At  I,l)-A( I+l, 3) -A (I  ,3) 

A(I,3)*A(I+2»3  )-A  (1  +  1,3) 

A(I(2)»I.*(AII,l)+ilI.3M 
A(I,4)*3.*(A(I+2,4)-A(  I*1,4))/A(I,3I- 
F3.*<A<  I  +  l,4)-A( I,  4)) /A (1,1) 

25  CONTINUE 

A (1,1) *0.0 

A  (N-2 , 3 )  *0.0 

C  THE  STEP  T3F  GAUSS 

C  K=N-3 

DC  30  1*1, K 
DO  35  M*3, 4 

35  A(I,M)aA(I,M)*A(I+l,l)/A(I  ,2) 

A  <1,1 )*0.0 
A ( 1 ,2  )  *A  ( I +1, 1 ) 

A(I+1,2)*A(I+1,2)-A(I,3) 

A(I+1,4)*A(I+1,4)-A(I,4) 

30  CONT  INU  E 

C 

C  SOLUTION 

C 

At  1,  1)*0. 

A  (N,  1  )  *0. 

•  A  (N-2  ,1  >*0.0 
L*N-1 

OC  40  I  *2 ,  L 
K*N— I 
M*K+1 

53  Cclvfl  NUfiAt  K,4)“A(K,3)*A(M+1,1)  )/A(K,2) 

DC  li  M* 1,N 

11  R(J,M)*A(M.l) 

I  Ft IZ . EQ .1 )  GOTO  8 
KV*N-1 


HMUt* 


49 


I 


DC  49  K«1,KV 
A(K,1) «YS(J,KI 
A ( K,3  )  =  R(  J  ,K) 

H=XS(J,K+11-XS<  J.K) 

A  (K  ,  2 ) *  ( YS  ( Jt K+l )-YS( J . K ) )/H-H* <R < J ,K  +  1 ) +2  .*R ( J , K ) ) /3. 
A(K,4)=(R(J ,K+1)-R< J,K)  )/<3.*H> 

HP ITE  ( 6  1 1001 ) 

OX*  1./49. 

DC  4  M* I*  50 
XaDX*  (M—  1) 

DC  5  K*2,50 
I  *K— 1 

IF(XS<  J.K)  .C-E.X)  GOTO  6 

5  CONTINUE 

6  H*X-X  S( J  »I  ) 

Y  aA(I  1 1 ) +A ( I,2)*H+A(I,3) *H*H+A( I  ,4) *)-*)•* H 
R ( J»  M )  *X 
YS< J,M) «Y 
4  CCNTINUE 

!Zal 
N=50 

DO  13  I  *1 150 
13  XS(J,I)*R(J,I) 

GOTO  3 

8  CCNTINUE 

WRITE (6,1003)  N 
DC  15  M*1»N 

15  WRITE(6  ,1002  )  X  S(  1 ,  M )  ,YS  ( 1  ,M  )  ,  XS  (  2,  P ) ,  YS  ( 2,M ) 

N=N-1 

1002  FCRMAT(5X,4<E12.5,2X)  ) 

1003  FOR'nTt  1H1 ,5X,mE  CQRFLETE  EXTRAPOLATED  SURFACES  N=',I3,//) 
1005  FCRMA  T ( 3F10  «5 ) 

RETURN 

Ef»D 


5.2  PLOT  1 

P  L  0  T  1  was  written  to  produce  plots  from  two  pointwlse  given  functions 

Y1  -  Fl(  x  ) 

Y2  -  F2(  x) 

The  x  -stations  are  for  both  functions  identical.  This  Is  useful  to  make 
diagrams  for  real  and  imaginary  part  of  pressure  distributions  (see  Fig.  18 
through  25)  and  to  visualize  the  y'  and  y"  values  of  the  blade  geometry 
(Fig.  44  and  45).  The  input  Is  read  from  File  01.  This  was  produced  from  the 
respective  program  whose  results  shall  be  plotted.  That  is  either  WING 


or  TEST  in  this  work. 

The  next  step  is  to  look  in  File  01  for  the  highest  and  lowest  values  of 
the  functions  and  to  decide  the  scale  of  the  diagram.  The  last  line  of  File  01 
is  a  zero.  Behind  this  zero  there  has  to  be  inserted  now  the  coordinates  of 
Points  1  to  4  from  Fig.  46. 


* 


Fig.  46.  Dimensioning  of  the  Plot 


This  must  be  done  for  both  expected  diagrams.  An  example  for  the  final 
lines  of  File  01  is  shown  below. 

This  file  produced  Fig.  44  and  45. 


y! 


y2 


0. 6  9555 

■)  .  9  1  i  3  4 
0  .<52754 

0.97101 

0.98551 


C •  766  2 6 

J  .  J  7  1'  J  l 
C.C791S 

■hi m- 

C  .11344 
12915 


0.21406 

-J.  4411  ■> 

C.C5786 
C. 39099 
1.51529 
C. 54123 

-2  5  6-5  0 


J.  .00)00 


-irr 

o. 


12; 


t-rr 

0.1: 

r  _ 


0 • G  000  ) 


1. 
0  . 


c. 

1. 

“)-ir4- 


0. 

1. 


c. 

). 


One  can  see  the  inserted  eight  additional  lines  behind  the  zero. 

PIOT1  works  only  on  the  Tektronix-terminal .  After  unpacking  and 
compiling,  it  can  be  called  on  this  device  with 

$$  PLOT  1 

After  the  first  plot  is  done,  the  terminal  makes  a  tone.  Then  P  L  0  T  1 


hits  a  pause-statement.  By  striking  an  arbitrary  key  on  the  keyboard  and 
CTRLS  ,  it  produces  Che  second  ploC. 


P  l  0  T  1  LISTING  : 

DIMENSION  X Cl  j3),YdOOI,Xl(10,lOO),Yl(lOtlCO),Y2dO,100), 
FA  (41*  B(4)  *N1  (i.1  ) 

M  =  1 

READd  ,1000  >  N1(M) 

I F( Ml ( M ) .EQ .0 )  GOTO  2 
N2*N1  ( M  ) 


1000 

1001 


DC  10  1 *1, N2 

READ( 1 , 1001 )  X1(M,I»,Y 

M*M+1 

GOTO  1 

M  =  M— 1 

OC  14  I  *1,4 

READ! 1 , 1001 )  A( I)  ,B ( I  ) 
CALL  I N IT 
CALL  NPTS(I) 

CALL  PL CT ( B, A) 

OC  3  1*1, M 
N*N1 ( I ) 

CC  4  J*1,N 
X(J  )*X1  (I,J  ) 

Y  ( J )  *Y  1  ( I ,  J  J 
CALL  NPTS(N) 

CALL  C P LOT ( X , Y I 
CCNTI  NUE 

CALL  PAUSE 

OC  15  1*1,4 

READd ,1001 )  Ail) ,8(1) 

CALL  INIT 

CALL  NPTS(I) 

CALL  PLOT (  B  ,A  ) 

CC  5  1*1, M 
N*N1  (I) 

DC  6  J  =  1,N 
X  ( J )  =X  1  ( I »  J  ) 

Y  (  J)  *Y2  ( I » J  ) 

CALL  NPTSIN  ) 

CALL  CP  LOT ( X , Y) 
CONTINUE 

CALL  FIN 
FORMAT ( 13) 

FORMAT! 3F10.5) 

STOP 

END 


Xl(M,I),Yl(M,I),Y2(M,n 


.-5.3  P  L  0  T  2 

P  L  0  T  2  Is  a  special  program  which  graphs  Che  shock  and  cascade  geometry 
on  Che  Tektronix  terminal.  It  is  called  with 


$$  PLOT  2. 


Input  is  read  from  File  01  which  is  prepared  by  CASCADE  in  each  run. 

The  resulting  plots  are  for  example  Fig.  35,  36  and  37.  P  L  0  T  2  asks 
for  the  size  of  the  diagram  by  SCALE : 

By  enterine  1.5,  1.,  0.5  or  any  other  digital  number  from  the  keyboard,  one 
may  change  the  graph  to  the  desired  size.  Each  time  the  program  has  to  be 
started  again  with  the  $$  -  command. 
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c 

c 

c 

c 

c 


15 


20 

35 


20 


25 


998 

999 

1000 


P  L  0  T  2 
PLOT 2  READS 
AND  PRCCyCcS 


OF  THE  G 


LIST  ING 
THE  DATA 
THE  T 
OF  TH 


ON 
iOMETRY 


X(1)»Y(1),IM 
GOTO  25 
GOTO  30 


I N  THE  FASSAGcS 

DIMENSION  X  (50)  ,Y<50) 

WR ITE ( 6  ,999  ) 

READ (5, 999)  ST 

CALL  NP'f  S  I  2) 

X(  11=20  . 

Y<1)=20. 

X  (2  )  =1  CCO. 

Y  (2 )  =20  . 

CALL  CP  LOT { X,  Y) 

CONTINUE 
READ! 1 .1000 ) 

IF(IM.EQ.-l) 

I  F( IK.EC.IM) 

I  K=I  M 
X(  2)  =X( 1)  +  1. 

YI  2 )  =Y(  1  ) 

GOTO  35 

«|A0(1 ,1000)  X(2),Y<2) ,IM 
CCNTI NUc 
DC  20  1*1,2 

X(I)  =  xm*ST*200.+20. 

Y  (I  )=Y{  I  )*ST*200.+20. 

CALL  CP  LOT ( X, Y) 

GCTO  15 

continue 

CALL  PAUSE 
CALL  FIN 

scal5 

FCRMAT(2F10.3,I3) 

END 


FFCM  FILE  FTO 1F001 
KTRONIX-TERP INAL  PLCTS 
FEADSHOCKS  ANC  TFE  SHOCKS 


> 


5.4  Sample  Sessions 

The  programs  are  too  large  to  fit  into  the  two  cylinder  disk  space  which  i3 
available  to  the  time  sharing  user.  Therefore  only  so-called  packed  version.-' 
are  present  on  the  private  disk. 

To  log  in  an  additional  temporty  T-Disk,  execute  the  program  START  by 
calling  it  from  the  CMS-Level.  The  T-Disk  is  then  logged  in  and  eventually 
files  are  read  in  which  are  in  the  virtual  card  reader  of  the  system. 

The  execution  of  one  of  the  programs  is  prepared  by 

G  E  T  T  E  S  T 

GEIWIKG 

or 

G  E  T  C  A  S 
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This  means  for  TEST,  WING  or  CASCADE  Co  be  copied  to  Che 
T-Disk,  unpacked,  altered  to  a  FORTRAN  file  and  compiled.  After  this,  the 
input/output  files  are  defined  correctly.  Finally  the  execution  can  be 
initialized  by 

$  FILE  NAME 

If  a  compiled  version  of  the  desired  program  is  already  on  the  T-Disk, 

D  0  T  E  S  T 

D  0  W  I  N  G 
or 

D  0  C  A  S 

will  also  define  the  input/output  files.  Again  $  starts  the  execution. 

See  the  three  sample  sessions  on  the  next  pages. 


CONTENTS  OF  THE  DISK: 


1. 


FILENAME 

FILETYF'E 

MODE 

NO.REC. 

DATE 

TEST 

DATA 

PI 

19 

9/30 

FILE4 

DATA 

PI 

3 

9/29 

F'LQTl 

PACKED 

P5 

2 

9/19 

FILE 

FT03F001 

PI 

1 

9/30 

FILE 

FT04F00 1 

PI 

2 

9/29 

H0TEST 

EXEC 

PI 

1 

9/29 

START 

EXEC 

PI 

1 

9/29 

DOWING 

EXEC 

PI 

1 

9/29 

CLOSE 

EXEC 

PI 

1 

lO'/Ol 

TEST 

PACKED 

P5 

8 

9/29 

PL0T2 

PACKED 

P5 

2 

9/28 

EILE3 

DATA 

PI 

3 

9/29 

.WING 

PACKED 

P5 

77 

9/26 

FILE 

FT05F001 

PI 

2 

9/29 

CASCADE 

PACKED 

P5 

81 

9/28 

GET WING 

EXEC 

PI 

1 

9/29 

GETCAS 

EXEC 

PI 

1 

9/29 

HOCAS 

EXEC 

PI 

1 

9/29 

GETTEST 

EXEC 

PI 

1 

9/29 

100 


this  is  a  sampel  session  for  test  . 
condition  {  sou  have  Just  lostsed  in. 


start 

1,7.30.06  USET  RDYMSG  OFF 
17.30.07  USET  BLIP  / 

17.30.08  CP  DEFINE  T2314  1^2  10 
17.30.09  FORMAT  T 

**  ‘FORMAT  T*  WILL  ERASE  ALL  YOUR  T-DISK  (192)  FILES  ** 
**00  YOU  WISH  TO  CONTINUE?  ENTER  ‘YES'  OR  ‘N0‘ 5 

> 

FORMATTING  T-DISK  (2314)... 

T  (192)J  010  CYL 
17.30.30  OFFLINE  READ  * 

READER  EMPTY  OR  NOT  READY. 

! ! !  E( 00009)  ! ! ! 

17.30.33  OFFLINE  READ  * 

READER  EMPTY  OR  NOT  READY. 

!  !  !  E( 00009)  !  !  ! 

R» 

>slettest 

17.30.42  USET  BLIP  / 

17.30.43  COMBINE  TES  PACKED  T5  TEST  PACKED  P5 

17.30.45  UNPACK  TES 

17.30.46  ALTER  TES  UNPACKED  T5  TEST  FORTRAN  T1 

17.30.47  ERASE  TES  PACKED  T5 
17.30.49  F  TEST 

//// 17.31 . 02  FILEDEF  FT05F001  DSK 
17.31.03  FILEDEF  FT01F001  DSK-T1. 

17.31.05  FILEDEF  FT06F001  DSK-T1 

RJ 

>*  test 

/EXECUTION  BEGINS... 

<R5 
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6.  Critique.  Conclusion  and  Outlook 


A  systems  of  programs  was  written,  which  allows  a  systematic  approach  to 
the  problem  of  oscillating  shaped  airfoils  In  a  staggered  cascade.  TEST  Is 
only  a  geometrical  examination  of  the  PR0FIL.  WING  Is  a  test  for  the 
theoretical  behaviour  of  the  blade.  If  exposed  oscillating  to  a  supersonic 
stream.  Finally,  CASCADE  Is  a  computer  model  for  a  finite  cascade  of 
airfoils  which  may  oscillate  with  a  phase  lag  from  blade  to  blade  In  a  super¬ 
sonic  flow.  CASCADE  Is  not  yet  finished.  Results  are  available  up  to 
now  only  for  the  Inlet  flow,  as  the  wake  could  not  be  added  because  of  lack  of 
time. 

All  three  programs  do  not  only  give  numerical  but  also  graphical  results. 

The  latter  can  be  obtained  by  the  two  plot  codes  P  L  0  I  1  and  P  L  0  T  2  . 

CASCADE-  and  WING  -results  are  compared  In  this  report  with 
solutions  of  Telpel  (2),  Verdon  (15,17,18)  and  Platzer  and  collaborators  (3,4,5, 
6,7,9,13,14).  For  the  linear  cases  the  agreement  is  considered  to  be  very  good. 
The  Included  thickness  effect  gives  different  results  to  those  from  Strada  (5). 
This  has  to  be  investigated  more  closely  In  the  near  future. 

It  is  clearly  understood  that  CASCADE  is  a  rather  expensive  approach 
to  the  problem.  This  is  considered  worth  while  due  to  the  complexity  of  the 
problem.  After  the  model  of  shaped,  oscillating  airfoils  is  better  understood. 

It  would  be  desirable  to  write  a  more  efficient  computer  code. 

To  finish  this  work,  there  are  two  more  steps  to  do: 

1.  Adding  the  procedure  of  wake  computation  to  CASCADE  and  then 
obtaining  results  over  the  whole  blades. 

2.  Optimizing  the  program  In  this  form. 

This  will  be  done  in  the  near  future. 
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When  this  is  accomplished,  a  rather  flexible  logic  structure  for  the  problem 
of  an  oscillating  supersonic  cascade  is  available.  This  could  be  used  to  examine 
different  systems  of  basic  equations  and  their  influence  on  the  results  with  the 
final  purpose  to  substitute  the  potential  equations  by  those  of  Euler.  Thus  we 
could  get  rid  of  the  assumption  of  constant  entropy  in  the  field  which  would  be 
a  new  fcfep  forward. 


APPENDIX  A 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


c 

c 


c 

c 

c 


36 


37 


45 


OSCILLATING  SINGLE  AIRFCIL  FOR  MACh.GT.l 

,CYDXU,PU 


CCMPL§X*8  U,V ,  A  It  F$  I »  G , 
CCMMON/?i/  AL<5»ALO ,AM  ,C 


COMMON/BC/  T «B tOYOXtOzYO >2 
CCMMON/SF/  XS(2,50),YS<2,50>,A< 
CCMMON/SOL/  EL( 4, 4),  FI  (4),SS(4) 
COMMON  V(2,25,25) ,X<2.2;,25) ,P< 


I.  IE«IW 

jYOXUfAI  1 1 1 «  T3 
)  •  A  (  50  ,4  I,  R(  2, 50  ) 


C 

C 

c 

c 

c 

c 

c 

c 

c 

cc 

c 

c 

c 


102 


100 


ULffitUN  vt*»  *3  »431»ai*»<;«£:ji»P<2»25),U(2,25»25)»  PS  1(2,25,25) 
FG (2,25,25) * AL( 2» 25 ,25  )  1 1 (2, 25 ,25 ) t G ( 2 , 3 )  ,DX (2  ) , IN(2,25)  ♦ 
FPX(2,20) , PS (2 , 20) , PL (2 ,20) ,TET(2  I  ,TED(20) 


OPTI ONS 
LCl  *0 
*1 

LC2  *0 
*1 

LC3  *0 
*1 

LC4  *1 
*2 
'0 


COMPLETE  OUTPUT 

ONLY  PRESSURE  CISTRIBUTICN 

PLUNGE 
NC  WAKE 


MA 


AKE  SHALL  BE  COMPUTED 

UR  face  s  are  analytica 

EDGE  (NO  WAKE  ) 

SURFACES  ARE  PCINTWISE  GIVEN 


ALLY  GIVEN 


NUMBER  OF  POINTS  CN  THE  SURFACE 


KV*25 

AI*CMPLX(0.,1.) 


8|API4,559).L0ljL02ILCi,L04,MA 


IFtLOl.EC.2) 
I F(L04.EC.  2) 
MAX*  MA 


■0  101 
L03*0 


CALL  PRCFI L  (WE  ,LQ4  ,T1  ♦  T2 ,  NX  ) 

READ( 4,1090  )  AK, AM.C,B,CX( 1) ,0X(2  1 

I F (AM. EC.O. )  GOTO  102 

A>*AM 

AM»AM*AM 

AL0*AM-1. 

C1*C+1  . 

AL0»AL0**1.5 
C3*C1*AM*1 • 5 

INITIAL  FIELO 

X  M*1 ./SCRTt/LO) 

D*3.1/9. 

OC  8  N*1 , 10 
M*N+1 

Y(1,M,N)*0. 

Y(1,N,M)*0. 

X(1,M,N)*0*  (N~l )- 2. 

X(1,N,M  )»X( 1,M,N) 

OC  36  M-2.KV 

X<1,  M,  1  )*0*(M-2)/2.-2. 

X(1,1,M)*X(1,M,1) 

Y(1,M,1  >*XM*(2.+X(1,M,1) ) 

Y  (1,1»M)*-Y  (1»M  ,1) 

OC  37  N*2, 10 
L-N+2 

OC  37  M*L,K V 
K  »M— 1 

X(1,M,N)*X (1,K,N ) +0.5*0 
X<1,N,M)«X(1,M,N) 
Y(l,M,N)-Y(l,K,N)+XM*0/2. 
Y(1.N,M)*-Y(1,M,N) 

DC  45  M * 1 , KV 
OC  45  N*l»  KV 
PSI(1,M,N)*0. 

AL(1,M,N)*AL0 
U  (1,M  ,N  i  *0  • 

V(1,M,N)*0. 

G(1,M,N)«0. 

TME  STEADY  FLOW  FIELD 
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o*oj  onrno  nnn 


COMPUTATION  OF  THE  SPlIhc  -  COEFFICIENTS 


IE*0 

T2*0. 

1*0 
1*1  +  1 
T  *T1 

I F  Cl  •  EG.  2)  T*T2 
OC  46  K-ltNX 
A  (K » 1 )  *YS (  I  ,KI 
A(K,3)»  R ( I »K  J 


H*XS<  I»K+1  »-XSU.K» 
A<Kt2)*(Y5<I,K+l)-YSU.M)/H- 
A  (K»4) *(R( I »K+1 1 —  R ( X,K| »/(3.* 
I  1»(-1)**(I  +  1) 


-H*(P(I,K+1)+2.*R(I,KI )/3, 


FA* MAX 
M  2*1 


THE  STEACY  BOUNOERY-PRCFSRTIS S  EEHNC  TFE  SHOCK 

CX1*1.07/(MA-1I 
00  9  J*2»KV 

isfcsirsu. 

I  M*1 

CALL  SWITCH<J,IM,MtN, I» 

CALL  SHOCK( KV, W5» LC4t M ,N » XP , C3 ♦ MA ,CX1 ) 

ALL  OTHER  STEPS  OF  THE  STEADY  FLOV  FI5LC 

KA*KT 

DC  1  J*2»KV 
J1*J 
I M*J+1 

CALL  SWITCH<lP«JtM»N» I ) 

CALL  RAN0(WE»Lu4»M»N»C3  t 
IF(X( 2»  K  t N) . GT. 1. )  M2*0 
K  e*KA+ 1 
DC  3  J2*JtKB 
IF(J2.EC.KB)  GOTO  3 
IF*J-1 

CALL  SWITCH<  J2  ♦  I  M  ,K1 ,  K2 , 1 ) 

IF(AL(21Kl,K2UGT.AL(2tFfNI)  GOTO  6 

CONTINUE 

J2*J2-1 

IN(I,J-1)*J2 

L*J+2 

DC  7  K*L,J2 

CALL  SWITCH  (KjJtMjNtl) 

CALL  GE  MM » N»  1 » I W ) 

IF<MZ.E<3.0>  GOTO  15 

IF(J2.EC.KA)  GOTO  1 

J  >M+1 

J4*N-1 

J  5*M 

Jt»N-l 

IFU.NE.2)  GOTO  12 

J2*M-1 

J4-N+1 

J5-M-1 

D1*(Y(2,J3» J4l-Y(2,J5,Jfc))/IX(2,J3tJ4)^X(2»J5,J6) 1*11 
C2*l  •/SCFT(/H2»M»N)  ) 

.N6.2)  GOTO  14 

K1*J 

K2*N+1 

AL(2»K1,K2I*AL(2«M,N) 

X(2,Kl,K2)*CY(2,J5t J6l-Y(2,M»N ))*I1 
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11 


1 

15 

C 

C 

C 


c 

c 

c 

c 

47 


18 


C 

C 

c 


22 


24 


29 

la 


Y(2,K ltK2t*CZ*(Xt  2tKl,K2)-X(2tM,Nn*Il«-Y<2»#. 

IFU.tC.2)  J3“J  4 

DC  11  K»J3»KA 

IF(K.EC.KV)  GOTO  11 

IP»K«-1 

CALL  SWITCH <IMtJ»M»N» 1) 

IH-J-1 

CALL  SWITCH(KtIM,Kl,K2tII 
X ( 2 *M » N  )*X(2tKl«K2) 

Y(2»M»N)*Y ( 2  t  K 1 , K  2 ) 

AL(2.MtNI«AL(2fKl,K2) 

CONTINUE 

IF(KA.LT.KV)  KA»KA+1 
IF(MA.GT.IN(I»J-1))  M A*M A+l 
CONTINUE 
CCNTINUE 

IF(T.EQ.0.1  GOTO  47 

AUTOMATIC  STEP  -  SIZE  CCVTRCL 

IF(Jl.GT.MA)  DX i I »  *0X  C  I  l^l .05 
IF(Jl.LT.MA)  DX(I  )*0X <I)*0.96 
IF(J1.NE.MA>  GOTO  16 


THE  UNSTEACY  FLOW  FIELC 

THE  UNSTEADY  0OUNOERY  PROPERTIES  BEHIND  SHCCK 
KA*KT 

IF(LOl.EQ.O)  WR  ITE(  6 » 1007 1 

DC  18  J«2»KT 

IM»1 

call  switch  <j » im  »m*n » i ) 

CALL  RANDS (KV,M,N, OX ( I > ,LC2»M2,N2> 

X(2» 1» 2)«0. 

Y(2»l,2>»0. 

X (2»  2» 1)«0. 

Y  (2f  2t  1  )*0. 

ALL  OTHER  STEPS  OF  UNSTEADY  FLOW  FIELD 

J5-J1-1 

DO  20  J«2tJ5 

IF-J+1 

CALL  SWlTCH{IF,J,MtN, I » 

CALL  RANDBCM.N, AM.AK, I  ,L02 ) 

L»J+2 

J2«IN<I ,J-1) 

DO  22  K»L,J2 

CALL  SWITCH(K,J,M,Nt I) 

CALL  GENU ( Mt N« I » AK» AM ) 

IFU2.EC.KA)  GOTO  20 

K1»M+1 

K2*J 

K3-K1 

IF(I.NE.2J  GOTO  24 

K1»J 

K2«N«-1 

K3-K2 

P(  I *K3 1 «X( 2 » M»N ) 

CALL  RANCS(KVtKl,K2,CXU)»  L02tM2,  N2) 


I  F( K.EC. 


J3t  KA 

KV)  GOTO  20 


I M-K* 1 
CALL  SWlTCH<IM»J»MtNfI) 

CALL  SWlTCH(K,IMfKltK2*I) 
U(2»MfN)«U(2»KltK2) 

PSI(2,M,N)-PSI(2»K1.K2) 

IF(J2.LT.KA  .AND.  KA.LT.KV)  KA«KA+1 
CCNTINUE 


N) 
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OUTPUT  STEACY  AND  UNSTEADY  FIELD 

I F(LOl.NE.O)  GOTO  38 
W  R ITE  (  6,  1004  ) 

J5*J  1+1 
DC  25  J*2,J5 
K.J-1 

LL*IN ( I  ,  K  ) 

WR ITE  ( 6  tlOO  7  ) 

W FITE  <6  » 1008  l 
N*K 

I  F  (I  .  NE  •  2)  GOTO  2  t 
M*K 

DC  31  N*J,LL 

WRITE*  6*  1009)  M,N,X(2,M,N)  ,Y(  2,M,  M,AL<2,M,NJ  ,U  (2,M,N)  , 
FV(2^MtN)tPSH2,MtN)  tGUtf-tN) 

CONTINUE 
DC  32  M-J.LL 

WRITE  (6 ,1009)  M»N»X(2*M,N)  »Y(2»M,M  ,AL ( 2 ,M  ,N)  ,U(2,M,N)  » 
FV(2,M,N),PSI <2.M,N) ,G (2,H,N) 

WFI TE ( 6 , 100 5) 

C  CNTI NUE 

COMPUTATION  OF  THE  PRESSURE  -  COEFFICIENTS 

K*J1*1 

DC  27  J*2»  K 

IM.J-1 

CALL  SWITCH (J , IM, M, N, I ) 

M.RHrtoMil 

IFII.EQ.2)  ILS*K-1 
IF(I.EO.l)  GOTO  30 

CHANGING  THE  FIELDS  AND  WAKE  -  COMPUTATION 

DC  48  M»1,KV 
CC  48  N * 1 , K V 
X(l,M,N)*X(2tM,N) 

Y<1,M,N)*Y(2,M,N) 

U(1,M,N)  *U(  2,  M,  N) 

V<1,  M,N)»V  (2,  M,N) 

G(1*M»N)*G(2»M»N) 

ALU,M,N)-AL(2,M,NI 
PSI(  1,  M»N  >*  PS  I  (  2 » M  ,  N ) 

CALL  WAKE(KV,WE,T1,T2,  LC4,  IU  S,  ILS,L03,NX  ,MA ) 

CCRRECTICN  CF  THE  INDEX  MJMBERS 

DC  35  1*1,2 
K-IUS 

IF  (I  .EQ*  2)  K*  ILS 
KA*K 

DC  43  J  *  1 , K 

I F ( I N( I , J) .GT.K)  GOTO  35 
KA-KA-1 
J  1*1  Nil  ,  J) 

CC  44  L*J1,KA 
M*L+1 

PX ( I , L ) *PX ( I » M) 

FL( I  , L ) *PU ( I , Ml 
PS(I,  L)*FS(I,M) 

ifu.eq.iT  ius-ka 

I  F ( I  •  E  C* 2)  ILS*KA 
CONTINUE 

OUTPUT  PRESSURE  OISTRI0LTION 


WR  ITE<  6*1004 ) 

I F (L02 . EC.O  )  WR IT E ( 6 *  S S  A  ) 
I F(L02  .EC.l  )  WRITE(6* S95  ) 
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WRITS*  6,10d  ) 
WRITS  (6, 1015) 
WRITE!  6, 1011 ) 


AK , AX , C ,  E  t  CX  ( 2  )  ,T  2 


WRITE (6,1001)  AK,AX ,C,B,0X(1) ,T1 
WR ITE ( 6  ,1010 ) 

WRI TE  (6 , 10 1 1) 

CC  33  1*1,2 

IFCI.EQ.2)  WR  I TS  (  6,1001  )  AK ,  AX ,  C  ,  E  ,  CX  1 2  )  ,T  2 
IFU.EC.2)  WRITE(6,10n) 

IF  (I  .EQ.  2)  WRITE!  6, 1011) 

K*IUS 

IF  (I  .SQ.  2)  MILS 
W FI TE ( 1 , 1016)  K 
CC  34  J*1,K 
IM=J+1 

wttV|?6a8l3)^A'J(5lJ?xl  lljl.PS!  I,J),PL(I,J) 

NPITEd  ,1017)  PX(  I,J)  ,PUI,J) 

WFI  TE  ( 6 , 10 14) 

INTEGRATION  OF  THE  MOMENTUM  AND  FCRCES ,POINTW  ISS 
OVER  THE  SURFACES  OF  THE  AIRFOIL 


GIVEN, 


CALL  LIFT(IUS,ILS,L02) 

GCTO  100 
K  *0 

WRITE!  1,1016)  K 

END  OF  MAIN  PROGRAM 
FCRMAT!  IX, 'PLUNGE  -  MOCE',/) 

FORMAT! IX, • FITCH  -  MODE',/) 

FORMAT (411,13) 

FCRMAT (4F10.5,2E10»3) 

FCRMAT  (IX,/,  1X,'W*C/U*  »,F5.3,’,  M* 
=  B/C*  '»F4.2»*»  CX*  ' ,  E9 .3  * '  »  T/C* 


1 

995 

996 

999 

1000 
1001 


CX*  ’ ,  E9  .3  » '  » 
PROPERTIES  AT 
FOR  THE  UPPER 
PROPERTIES  AT 
FOR  THE  LOWER 


,  M*  ' » F4* 2  , '  ,  X* 
T/C*  '  »F6  .4  , /  / ) 
THE  MESHPCINTS  CF 
SURFACE: ',//) 

THE  MESHPCINTS  OF 
SURFACE: ',✓/) 


' ,F4. 2, 

THE  FLOW', 


FLOW', 


7X, 'LAMBDA • ,7X,'RU',9X,'IU', 


UIU1  r  LFHM  I  UAtM  'I  ’  t  r*  •  *  f  ’  f  r  •*  »r«r« 

F',  B/C*  ',F4.2, ',  CX*  ' ,  E9  .3  * '  »  T/C*  ',F6.4,//) 

1002  FCRMAT  (IX,  •  THE  PROPERTIES  AT  THE  MESHPCINTS  CF  THE  FLOW', 
F*  FI ELO • , / , IX , •  FOR  THE  UPPER  SURFACE:',//) 

100  2  FORMAT!  IX,'  THE  PROPERTIES  AT  THE  MESH  FCINT  S  OF  THE  FLOW, 
F*  FIELD',/, IX,'  FOR  THE  LOWER  SURFACE:',//) 

100  4  FCRMAT  (1H1) 

1005  FORMAT! IX,/) 

1007  FCRMAT ! IX, / / ) 

10 08  FORMAT! 2X, 'POINT', 7X, » X », 10X,  • Y ', 7X, 'LAMBDA • , 7X ,  'RU ',  9X  , 'I  U • , 
F9X,'RV*  ,9X,'IV',8X,'RPSI',7X,' IPS  I » , ex, • PG ' ,9X  ,  • IG  '  ,/ ) 

1009  FCRMAT  (2X,  I  2,  12,11  (3X.F8. 5)  ) 

1010  FCRMAT! IX, • FREsSURE-CISTRIBUT ION  UPPER  SURFACE:',//) 

1011  FCRMAT !2X, • FOINT' ,4X, 'X ',8X, 'CPS'  ,EX  ,  • RCPU •  ,8 > ,  •  IC FU  '  ,/ ) 

1012  FORMATdX,'  PRESSURE-DISTRIBUTION  LOWER  SUR  FAC  E:  ',// ) 

1012  FCRMAT ( IX, 12, •» ', I2,4X,F5.3,3( 2X,E10.3) ) 

1014  FCRMAT ( //, IX, i********************************************  », 

F> ******«,// ) 

1016  FCRMAT  (13  I 

1017  FORM  AT(3F10.5) 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  PROF IL l WE ,  LC4  ,T1,T2,N) 

CCMMON/SP/  XS!2,50) , YS ( 2 ,50 ) , A ( 50 ,4 ) , R ! 2 , 50 ) 


CCMMON/ 


XS  (2 , 5( 


,YS  (2,50) , A(50 ,4 ) 
PRCFIL  -  SURFACES 


A,(50,4),R(2,50) 


PREPARATION  CF  THE  PRCFIL  -  SURFACES 

REA0!4, 1000  )  T1,T2,NT,IKP 

IF(L04.6C.0)  READ (4,1001  )  SP 

I  F ( L04.EC. 2)  READ (4, ICC  1 )  WE 

DC  8  J* 1, 2 

IZ*0 

N*NT 

T  *T1 

IF(J,EQ.2)  T*T2 
IF( L04.NE.0 J  GOTO  12 
CC  9  K*1 ,4 
M*(K-1)*5+1 

READ(4, 1001 )  XS(J  ,M)  ,XS(  J,M«-1)  ,X  S  ( J  ,M*2  )  ,XS  ( J  ,  M+3 )  ,  X  S  ( J  ,M+4 ) 

READ!  4, 1001  )  YS  ( J  ,M )  ,  Y S  ( J  ,M+1 )  , YS  ( J  , M+2  )  ,  YS  (J  ,M+2 )  ,  YS  ( J  ,M-»4 ) 

IF!YS( J,M+4).EQ.1C0.)  GCTO  7 

CONTINUE 

CONTINUE 
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I 

1 


2 

12 


f 

C 

\ 

I 

c 

c 


.  i 

52 

51 

P 

10 

C 

c 

c 

!  I 

1 

25 

i 

i 

i 

i 

C 

35 

30 

f 

c 


40 

53 

11 


49 


0C  2  LL*1,N 
XS< J,LL)*XS< J,LLI /SP 
YS<J,LL>*YS(J,LLI /SP 
IF(Lu4  .EC.O )  GOTO  3 
DX*1 .0/ (N-l ) 

1 1*  ( -l )  **<  J  + 1) 

DC  20  K*1,N 

XS<J,K)-<K-l)*CX-0.25 

Y  S  ( J ,  K  )  *  II  *4  .  *T  *X  S  < J ,K )* ( 1  ,-XS  (  J,  K  )  > 

TC  ENTER  THIS  PART, THE  SURFACES  SHOULD  ALREADY  EE 
GIVEN  POINTWISE 
EXTRAPOLATING  POINTS 

CCNTINLE 

INTERPOLATION  THROUGH  CL8IC  SPLINES 

IFIT.NE.O.  .OR.  L04.EC.C)  GCTC  51 
DC  52  1*1, N 
A  <1.11*0. 

GOTO  53 
CONTINUE 
DO  10  1*1, N 
A ( 1 ,3 ) *XS< J, I ) 

A  (1 ,4)  *YS<  J  ,1  I 

MATRIX  OF  COEFFICIENTS  AND  RIGHT  SICES 
K*N-2 

DC  25  I*1,K 

A(I,1)*A<I+1,3)-A(I,3) 

A<I  ,3)  «A  (I  +  2,  3)  -A ( 1*1  ,3  ) 

A  (I,  2  )*  2  •*(  A  <  1,1)  -*■  A  <  1,3)1 
A (1,4) »3.*(A<H-2 ,4)-A< I  41.4) )/ A (I, SI¬ 
PS.*!  A  <  141,4 >-A< 1,4) ) /A <1,11 
CONTINUE 
A  ( 1 ,1  >  *C  .0 
AIN-2, 3)*0.0 

THE  STEP  OF  GAUSS 

K  *N— 3 

DC  30  1*1, K 

A?lfM)*A<f  ?M)*A(I*1  ,1  )/ A  ( 1 ,2  ) 

A ( 1,1 ) *0  .0 
A  (j , 2 ) * A ( I +  1 , 1) 

A  <  I+l  ,2  )  *A  <  I+l,  2  )  -A  ( I » 3  ) 

AII+l,4)*A( 1+1,4) -A < I ,4) 

SOLUTION 

A (1, 1) *0* 

A  (  N,  1)  *0. 

A  <N-2 ,1 ) *0 .0 

L*N— 1 

CC  40  I  *2 ,  L 
K*N— I 
M*K«-1 

A<M^J|^*^A<K,4)-A<K,3)*A(M+1,1)  )/A<K,2) 

DO  11  M«1,N 
R  <  J,  M)*A(M,  1) 

IF(IZ.EQ.l)  GOTO  E 
KV*N— 1 

DO  49  K*1,KV 

A (K, 1 ) *YS  < J ,K) 

A  <K  ,3  I  *  R<  J, K  ) 

H*X$| J,K+1 T-XSI J.K) 

A<K,2)  *<YS<  J,K*1)-YS(  J,K))/H-H*I(KJ  ,K+1)*2<*R(J,K)  )/3. 
A(K,4)*<R(J,K+1)-R<J,K) ) / (3.*H ) 

DX-1./4S. 

DC  4  M*  1 , 50 
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2L 


PW'* 


t 


X  *DX* ( M— 1 ) 

DC  5  K  =  2,50 
I*K— 1 

IF(XS ( J,K) .GE.X)  GOTO  6 

5  CONTINUE 

6  H*X-XS ( J,I  I 

Y  =A  ( I  ♦  1  )+A  (I»  2) *H+A  ( I  ,2)*H*H+A(  I,4MH*h*H 
R(J,M)=X 
YSt J»M )*Y 
4  CONTINUE 

iz=i 

N  *50 

DC  13  1*1,50 
13  XSt  J,  II*P(J,I  ) 

GCTO  3 

8  CONTINUE 

IF(IKP.EQ.O)  GOTO  17 
DC  15  M  =  1,N 

15  MRITEt  6,1002  )  XSt  1 ,  Ml  ,YS  ( 1 ,  M)  ,  XS  (  2 ,  N )  ,  Y  S  (2  ,  Ml 
17  N=N-1 

1000  FORMAT (  2  FI  0  .5  ,2 1 2  ) 

1001  F  CRMAT 15F10 .5 ) 

1002  FORMAT (5X»4(E12.5«2X)) 

RETURN 

END 

C  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  FIND (KV ,  IM  ,  > $  ,  Y S, M, N, IE  ♦  I ) 

C  CMPLE  X*8  U,V,Ai,PSI,G»CYOXU 

CCMMON/BC/  T,B.0YCX.62YCX2,DYDXU  ,41  ,1 1 

COMMON  V <2, 25,25)  ,Xt 2,25  ,25) ,P( 2,25) ,U (2,25,251  , 

FPS II 2, 25, 25  ),G(  2,25,25)  ,4L (2,25,25) ,Y( 2,25, 25  ), 

FC(2,3l,CX(2) , IN (2, 25) 

C  FINO  LOOKS  FOR  THE  MESH INDEX, RE  SPCNSIBEL  FOR 
C  THE  POINT  XSjYS 
C 

IFCIE.EC.l)  GOTO  19 
I  KK*0 

C  IF<IW.GT.5  .ANO.  XS.GE.l.  .AND .  XS.lE.1.10)  IKK=1 

IF(IKK.EQ.I)  MRITE(6,  2011)  1,15,11 
2011  FCRMATdX,  •  FIND  ENTRY:  *,314) 

I  Z=0 
KA=0 
L  1  =  1 
L  2=1 

21  19*21 

lFdKK.EQ.il  MRITE(6,2003)  19 , 1 , 1 E ,  XS ,  YS 
CO  22  I2=L1 , 20 
I M*I 2+L2 

CALL  SWITCHtIM,  I2,M,N,I) 

L2-I2+L2 

19=26 

I F( IKK. EQ. 1)  MRITEt  6, 2CCC )  I9,M,N,X(  1  ,M  ,N  )  ,Y( 1,M,N) 

1  Ft  L3 . GE.KV  )  GOTO  13 
J 1=M+ 1 
J2=N*  1 

24  KMJ1-J2 

IF(I.EQ.2)  KM-J2-J1 
I  5*24 

IFtIKK.EQ.il  MRITEt  6 , 20CC )  19 ,  M,  N  , X  ( 1,  M  ,N )  . Y ( 1  ,M  ,N  I 

IF(XS.GE.X(1.M,N)  .ANO.  XS. LT . X <  1 ,  J 1, J2 1 1  GOTO  23 

IF(X(1,J1,J2)  .GT.l.  .ANC.  KM.EC.l)  KA*J2 

I F < I .EC. 2  .ANO.  KA.EQ.J2)  KA=J 1 

IFtI.EQ.l  .AND.  KA.NE.J2)  GOTO  22 

I  Ft  1 .EC. 2  .AND.  KA.NE.J1)  GOTO  22 

IFtI.EQ.l)  Jl-JH-1 

I  F  ( I  .EQ  .  2)  J2*J  2+1 

IFtJl.EC.KV  .OR.  J2.EC.KY)  GOTO  13 

GaO  24 

22  15=22 

I F ( IKK. EQ. 1 )  MR ITEt  6 , 2CCC )  I9,M,N,X(1,M  ,N)  ,Y(  1,M,N) 
}f*5kK.EQ.1)  MR ITEt  6 , 2000 )  I9,M,N  ,X (1,M,N) ,Y( 1,M,N  ) 


IFd.EC.2)  GOTO  27 
IF(YS.LT.Y(1, J1,NI )  GCTC  1 
IF(N.EC.l)  GOTO  13 
L2*L2+1 
L  1»N-1 
GOTO  21 

ilT^KK.EQ.l)  WR  ITE ( 6 » 2 CCQ )  19 ,  M ,  N  ,X  C 1  ,M  ,M  ,Y(  1 ,  f  ,  M 

IFCY$.GT.Yll,M,J2))  GCTC  1 

IF(M.EQ.l)  GOTO  13 

L2-L2+1 

L1*M-1 

GCTO  21 

1 9*1 

IFdKK.EQ.il  WRITE(6,2CC0)  I  9,  M*  N  ,X  < 1  ,M  *M  t  Y(  1 ,  F  ,  M 
F2*M 
N  2*N 
GCTO  14 
I  9*28 

IFdKK.EC.il  WRI  TE(  6, 20CC )  19  ,M  ,N  *X  ( 1 ,  K  ,  M  ,Y  { 1  *N  ,N  I 

IWirio  .5)  GOTO  29 

M  *M2 

N*N2 

19-18 

IF(lKK.EQ.l)  WRITE! 6.2CCC  I  1 9 ,  M, N  ,X  <  1, M  ,N )  ,  Y(  1  ,M  *N  I 
IFdZ.EC.O)  GOTO  28 


EQ 

.1 

•AND. 

I 

.EC 

.1) 

N-N-l 

EC 

.1 

.AND. 

I 

.EQ 

.2) 

M-M-l 

9* 

0  . 

OR.  N. 

>  EC.O 

)  GCTO  28 

EQ 

.2 

.ANC. 

I 

.EQ 

.1  ) 

M*M+1 

EQ 

.2 

.AND. 

I 

.EQ 

.2) 

N-N+ 1 

9* 

XV 

.OR. 

N 

•  EQ 

.XV 

GOTC  28 

1q 

.3 

.AND  . 

I 

•  EQ 

.1) 

N  *N+  1 

sc 

.3 

•  AND. 

I 

.EQ 

.2) 

M*M+1 

I  F  ( IZ  .  EQ  *3  .AND.  I. £0.1)  N-N+l 
IF(IZ.EC.3  .AND.  I.EQ.2)  M-M+l 
IF!IZ.NE.3)  GOTC  3 
IF(N.EQ.M)  GOTO  28 
I  F(  IZ.EC.4  .AND.  I.SQ.l)  M-M-l 
IF1IZ.EQ.4  .AND.  I.EC.2)  N*N-1 
F ( I  Z.NE.4 1  GOTO  2 
IF(M. EQ. NJ  GOTO  28 
CCNTI  NUE 
GCTO  14 

WPITE  (6tl00CI  KK,M*N,XS  *YS  *X<1  ,N,M  »Y  ( 1 « N  *  K  ) 

IE-1 

WFITE  (6*1001)  M.NtXStYStlE 
GCTO  19 

CCNTRCL  -  STEP 

Jl-M+1 

J2-N+1 

Kl-M+1 

K2-N 

K3-M 

K4-N+1 

I F (I • NE. 2)  GOTO  20 

Kl-M 

K2-N+1 

K3-M+1 

K4*N 

UH8 

IFlIKK.EC.l  .AND.  M.EQ.14  .AND.  N.EC.13)  IK1-1 
IF(lKl.EQ.l)  WRITE  (6*  20C0 )  19 ,  M  ,N  ,X  ( 1  ,  M  ,  Y(  1  *  M  ,N) 

IF(IKl.EQ.l)  WR  ITE(  6  *2000  )  I  9  ,  J1 ,  J2  *X  (  i  *  J  1 ,  J2 )  ,X  (1  ,  J1  , 
IF(IKl.eG.l)  WRITE (6,20CO)  19 ,K 1  ,  K 2  ,X ( 1  * K 1 f K2 ) *> (1 , K1 , 


IF(IKl.EQ.l)  WR ITE( 6  *200  C  )  19  * K3 * K4  ,X ( 1 , K2 * K4 )  , 
IF(XS.EQ.X(1*M,N)  .AND.  YS.EQ.Y (  1 ,  P * M )  GCTC  19 
D  1*1  l*(Y(l.Kl  ,K2)-Y(l,P,M)/7x  (1,K1,K2)-X(1  *H,N 
I F (K4  .E  C.K3 )  GOTO  11 

02»U*(Y(1  ,K3tK4)-Y(l,M,N)  )  /  (X  ( 1 ,  K  2  ,K4I -X  ( 1  ,H ,  N 
I F(K4. EC.K3 )  D2*0 • 

Cl2*Il*(YS-Y<  1,M,M  )/(XJ-X(l,M,N)  ) 


*X  (1  *J1  » J2  ) 
»>(1*K1,K2) 
,Y(1  *  K3  ♦  K4  ) 


K3*K4)-Y(1,M,N) ) / (X < 1 ,  K 2  ,K4I -X < 1 ,M , N ) ) 
)  02*0 . 

Y(  1«M*N) )/(>J-X(ltH*N)  ) 
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I F (K4.Efl.K3 )  GOTO  25 

C2*I1*(Y(1, J1,J2)-Y(1,K2,K4J )/(  X(  1 »  J 1,  J2  )->  (1 ,  K3  ,K4  )) 

25  IF(K4.EQ.K3)  D3»0. 

C4-I1*(Y(1.  Jl,  J2)-Y(1,K1,K2)  )  ✓  « X  (  1,J1,  J2  )- X ( 1 ,  K1 ,K2 ) ) 
D24*I1*(Y(1»J1»J2 )-YS  )/(X(l»Jl»J2)-XS) 

IF(D1 .L T.D12  .OR.  C2.GT.D12)  SCTC  16 
IF(D3.LT.D34  .CR.  D4.GT.C34)  GOTO  18 
IF(XS.LT.X(1,M*N)  .OR.  XS. GE.X ( 1, Jl ,  J2 )  )  GOTO  18 

1000  FORMAT ( IX *• NO-rlNO  :  • ,  I2» • . • , 12 »4( 2X  ,F8 .2  )  ) 

1001  FORMAT  (1X»  'FIND:  • ,  I  2,  1 ,  M2,  2  ( 2  X ,  610  .3  I ,  •  IE»  *,I2) 

2000  FCRMAT(1X,3I4,2X,F8.3,2X,F8.2> 

19  RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXX>>XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX>>X>>>XXXXXXXXXXXXX 
SUBROUTINE  BOUNO<  WE,  L  C4,  I,  X,  I  W ) 

COMPLEXES  L,  V,AI,PSI  ,G  ,DYDXU 

COMMON/ 80/  T  »B , DYOX  »D2YCX2 , DYDXU  »AI»I1»T2 

COMMON/ SF/  X$(2,50) ,YS ( 2 , 50 ) , A ( 5C  , A ) , R ( 2 , 5C > 

IF(IW.NE.O)  GOT  C  1 
C 

C  STEADY  BCUNDERY  CONDITIONS  ALONG  THE  AIRFOIL 

IF(L04.EC.l)  GOTO  2 
I F (L04. EC. 2)  GOTO  4 
DC  5  K*2  *  50 
J  =K- 1 

I F ( XS ( I . K ) .GE.X )  GOTO  6 

5  CONTINUE 

6  H*X— XS ( I » J ) 

DYDX*A( J,2)+2.*A< J, 3 ) *h+3 .*A< J ,4 ) *F*F 
D2YDX2=2.*A  <J,3)  +  6.*A(  J,4)*H 
GOTO  2 

3  D*DX*I 1*4. *T*( 1.-2. *X ) 

02 YDX2*-I1*8  ,*T 

GOTO  2 

4  W=WE*4.*ATAN<1.)/180. 

CYCX»I1*TAN(W) 

02YDX2*0. 

GOTO  2 
C 

C  STEAOY  eCUNDERY  CCNOITICNS  ALONG  WAKE-SLIP-LINE 

C 

1  CYCX»TAMT3) 

D2YDX2*0. 

2  RETURN 
END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  SHCCKI KV .HE » LC4, M, N, XP , C 2 ,MA , C> 1 ) 

CCMPLEX*e  U»  V  *  A  I,  FSI.GtCYDXU 
C 0MM0N/8A/  ALOt  ALC»AM»C1 ,AK , I »  IE, IW 
CGMMON/eC/  T,B,0Y0X,02YC>2,DYDXL,M ,!1,T4 
COMMON  V (2 ,25 1 25) ,X (2,25 ,25) ,P  <  2 , 25  ) ,  U(  2 , 25  ,2  5  ) , 

FPSK  2,25,25  ),G<2, 25,25  >  ,AL(2,  25,  *5)  ,Y<2  ,25,25  ), 

FQ  (2,3),  OX  (2)  ,  IN  (2  ,25) 

£  COMPUTATION  OF  THE  FIEIC  NEAR  BEHINC  THE  SFOCK 


ITE-0 


I  KK«0 

IF(IW.NE.O)  I KK» 1 
IF(IKK.EC.l)  WRIT 


E ( 6 , 20C0 ) 


2000  FORMAT ( IX , ‘SHOCK  ENTRY: 


TX«0. 

I  F(  IW.NE  .0)  TX»1. 

J  *M— 1 

K*N 

L*M 

IF(I.NE.2)  GOTO  5 

J«M 

K*  N— 1 

CALL  BOUND (WE,LQ4,I,XP,IW) 


NE.O)  TX»1. 


AL(2,M,N)*< ALD-C3*DYDX«I1)**<2./3.1 
IF(L.EC.2)  GOTO  17 
01*1 1/SQRT (  AL(  2 1 M  t N )  1 
X5*X(2, J,K) 

Y5*Y( 2. J,K) 

CALL  Fl ND<KV,IW,X5,Y5,M2  ,N2  ,  IE,  I  ) 

IK*9 

IFdKK.EQ.l)  WRITc<6  ,1000)  I  K, I E  ,  AL  (2 ,M  ,N)  , X5  ,Y  5 
11*9 

IFdE.EC.l  .OR.  M2.GE.KV)  GOTO  16 

L1*M2+1 

L2*N2 

IF(  I  .NE.2 1  GOTO  7 

L1*M2 

12*N2+1 

X1*X(1,M2,N2) 

Y1*Y(1,M2,N2) 

X2=X (I  ,L1,L2 ) 

Y2*Yd,Ll»L2) 

X3*X(1  ,F2n  ,N2+i) 

Y3*Y  d»M2+l»N2+l) 

I  2*0 

02*SQRT (AL ( 1 ,M2 ,N2 1 1 +SCPT ( AL (2 , J , K ) ) 

0  2*  2.  *11/02 
I  K*7 

IFdKK.EC.l)  WRITE  ( 6*  10GG  )  !K  ,W2  ,X1  ,X2,X3 
IF  (T.NE.O.  .AND.  IW.EC.C  .AND.  ITE.EC.O)  GOTO  2 
I F(T4. NE. 0.  .AND.  IW.NE.C  .AND.  I1E.EQ.0)  GCTC  2 
X4*X(2,  J,K  1  40X1/2  . 

Y4*Y(2,J,K)+<X4-X<2 ,J,K)  1*02 


I  K*14 

IF(IKK.EQ.l)  WRITE(6,10CQ)  IK, IE, >4,Y4,X5,Y5 

X4* < 01* XP-C2*X5+Y 5 1/(01-021 
Y4® ( X4-XP 1 *01 
IF(X4.LE.TX>  IT 3=  1 
I F ( ITS . EC. 1 )  GOTO  14 
I  K*2 

IFdKK.EC.ll  WRI  TE(  6,1  OCC  1  IK  ,  I*  ,X4  ,Y4  ,X5  ,Y5 
CALL  FIFD(KV,IW,X4,Y4,N1,N1, IE , I) 

I  F(  Ml. EC. M2  .ANC.  N1.EC.N2  .AND.  IS.SQ.O)  GGTO  8 

IFdW.NE.O  .AND.  IE.EQ.l)  GOTO  11 

X6*(Y2-Y5)/02+X5 

IF(X6.GE.X2)  GOTO  10 

03* (  Y2-Yl)/(  X2-X1 1 

X5=(  Y1-Y5+02*X5-03*X  11/(0  2-0  31 

Y  5*03* ( X5-X1  l+Yl 

I L*13 1 

I  F (N2  .EG  .1 )  GOTG  16 
N2*N2-1 

IFU.EC.2)  GOTO  19 
I L*132 

IF(AL(1,M2,N2)  .NE.AH1  ,l»2-l  ,N2  1  1  GCTC  16 
GCTO  20 
I  L*1  9 

IF(AL(1,M2,N2).NE.AL<  l,M2,N2-l  1  1  GOTO  16 
CCNTINLE 

I  F( I .NE .2 1  GOTO  9 
M2*M2-1 
N2*N2*1 
GCTO  9 

0  3*(Y3-Y2)  /  I  X3-X2  1 
X5*(Y2-Y5+02*X5-03*X2  1/  CC2-031 
Y5»03*(  X5-X21+Y2 
M2*M2+1 
I  L*10 

IFCM2.EC.KV)  GOTO  16 
I  F  (I  .NE.2)  GOTO  9 

a mu 

GCTO  9 
X(2,H,N)*X4 
Y(2,  R,M*Y4 
GOTO  11 
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1*1 


C2*2.*$QRT(AL0)+SQRTl  AL(2,J,K)  )«-SCPT(AL(2,M  ,N  )  ) 
D2*4. *11/02 


Y5»X  (2  ,M ,N) 


C 

C 

C 

C 

11 


F(lKK.EC.l)  WRITE (6 , 10CO  I  IK  *  I L. >F  ,X5  » Y 
JFdKK.EQ.lt  WR  ITE  ( 6  » 1CC0 1  M,  N.  Cl  ,C2  ,0X  1 
IFtT.EQ.C.)  GOTO  1 
X  (  2»  M»  N  )*  ( 0 1*XP  — 02*X5+ Y 5  )  /€  0 1—D  2  I 
Y(2»M,N)*(X(2,M»N)-XP )*C1 
G  CTO  11 

X  (2,  M,  N  )*X  5+DX1/2 • 

Y  (2»M,N  )*D2*0Xl/2.+Y5 

CCMPUTA TION  OF  THE  ACCITIONAL  FCINTS  FOR  THE  UNSTEADY 
FLOW  FIELD 

D2»1./SQRT( AL(2,M,N» t 
D4«1./SCFT(*L(2,J,K)) 

P(I»LI*(D4*X(2,J»K)-fC3*XP+Y(2»J»K t* II »✓ C D3+04 ) 

IF(L.EQ.2>  P ( I  * L)  *XP 

I  F(T  .EC  .0.  .OR.  Ih.NE.O)  P  (  I ,  L  )«X  (  2,  J  ,K  t 
GCTO  12 

17  X  (2  »  M,  N  )*0  • 

Y  (2»M,N  1*0. 

IF(IW.EC.O)  GOTO  12 
X(2,M,N)*1. 

12  IF(tKK.EC.l)  WRITE (6 , 1000 )  M, N , M 2 , P, N ) , Y (2 »M , N )  ,AL ( 2 »M ,N ) , 

FP (I ,L) 

1000  FORMAT (1X,2I4»4(2X» F8.3  )  I 
RETURN 
ENO 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SUBROUTINE  RANDJWE  ,LC4  ,P,N,C1) 

CCMPLEX*e  L,V,AI,PSI,G.CYDXU 
COMMON/ eA/  ALQ,ALC»AP,C3,AK,I tIEt 1W 
CCMMON/eC/  T,0,QYDX,O*YCX2,DYOXU,AI  ,11 

COMMON  V (2,25.25) ,X(2,2!,25) ,P(2,2!  ) ,U ( 2 » 2* ,2 5 » , PSI (2,25,25) , 
FG(2»25,25) ,AL(2,25,25)  ,Y (2,25, 25) ,C(2,25) 


C 

c 

c 

c 

100  2 


1001 


11 

1000 

10 


BCUNOERYSTEP  OF  THE  STEACY  FIELD  TC  THE  AIRFOIL 
I  KK*0 

I F (L04. EC.O  )  IKK* 1 
IF(IKK.EQ.l)  MRITE(6 , 1002  ) 

FORMAT (IX,' RANO-E  NTRY '  ) 

A»-C1*I  1 

J1*M 

J2*N-1 

I F( I ,NE .2 )  GOTO  5 

J  1*M-1 

J2*N 

X  (2,M,N)  *X  (2,  J1  ,J2) 

DC  11  K  X*1 , 15 

CALL  BGUNC ( WE  ,L04 , 1 , X ( 2, P, N ) , I W ) 

I  F (  IKK  .EC .1  )  WRITE(6, 100 1)  M ,N , KX  ,X ( 2, M, N ) ,0YC X, D2Y CX2 
FORMAT  ( 1 X  ,3  13  ,3  El  2  .5  ) 

AL(2,M,N)*(  ALO+A*OYOX  )**(  2./3.  ) 

IF(IW.NE.O)  GOTO  2 

IF(OYDX.EQ.O.  AND.  02YCX2  .SQ. 0. )  GOTO  2 
F*2.*(X(2,M,N)-X(2,J1 ,J2))*I 1/Y(2,J1,J2> 

F*F-(SQRT( AL( 2, J1,J2) USCRTIAL (2,M,N))) 

FS*2. *ri/Y(2,Jl,J2)-A*C2YDX2/(3 .*AL(2,M,N) ) 

D*F/ FS 

X(2,M,N)*X(2,M,N>-C 
IF1ABS(C).LE. 0.000001)  GCTO  10 
CONTINUE 

WRIT E ( 6,1000 )  M,N,0 

F  CRM  AT  (IX,  '  WUNOERYSTEP  DID  NCT  CONVERGES  f,I2,',',I2, 
F*  D-  '  .ElO  .3  ) 

Y(2,M,N)*0. 

-  i -  - -  Iw) 

) 


t  u,njni*u, 

CALL  BOUND ( WE,L04,I ,X (2,P,N) , IV 
ALj|,M,N)  •(  ALO*A*5yOX)**(2  ./3  .  I 
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2 


Y<2,M.N)»0. 

D*-2.*I1/(SQRT(AL(2,J1.J2) )+SQRT < A L ( 2, P , M ) ) 
X(2iM'N)«X(2tJl»J2)-Y(2.Jl.J2)/C 
1  RETURN 
END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  GENIM.K,  I, IN) 

C CMP LEX*8  U.V.AI.PSI.G, CYOXU 
CCMMON/EC/  T  ,  8 » OYCX, 02  YC)  ~  * 


u  (.nnun/  cw  i,o»uti.*.u£icX2»DYDXU.AI»I1 

COMMON  VC2.2S.25) ,X(2,25.25) ,P ( 2 , 2S » ,UC 2 , 25 ,25 > ,  P$I (2,25,25)  , 
FG(2,25,25),AL(2,2S,25),Y(2,25,25),C(2,25) 

GENERAL  STEP  OF  STEADY  FIELD 


cc 

C 


IKK=0 

IF(IKK.EQ.l)  HR  IT  E(  6  *  10CC  ) 

1000  FORMAT ( IX  « *  GEN  -  ENTRY') 

J  1*M 

J2-N-1 
K 1*M- 1 
K2*N 

IFCI.NE.2)  GOTO  5 

Jl-M-1 

J2*N 

K1*M 

K2-N-1 

5  D1=1./SCRT<  ALC2.K1.K2)  ) 

D2-2./CSQRTCAH2.  J1.J2)  )  +  SCRT(ALC2,Kl,K2) )  ) 

XY-D2*X (2  »J1»J2)+01*X(2»K1,K2) ♦  < Y < 2 , J1 , J2 )- Y( 2 ,K 1 f K2) )*I1 
X<2,M,N)*XY/(D1+D2) 

Y<2,M»N)=01*I1*(X(2»M.N  )-X(2,Kl ,K2> )+Y  <2  .K1.K2 ) 
AL(2»M»N)*AL(2»K1.K2) 

IFCIKK.EC.l)  WRITEC6  »1CC1 )  M,  N,  X  (  2 ,  N,  N)  ,  Y  ( 2  ,M  ,  N  )  ,  AL(  2 ,  M  tN  ) 

1001  FORMAT  (  1X,2I3,3(2X,E12.5)) 

R  ETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  RANOSC KV . N . b , XI ,L, M2. N 2 ) 

CCMPLEX*8  L.  V  ,AI , PSI , G , CYOXU , DU, DV, C2, C6 
CCPPLEX*16  A.RI.ES 

CCMMON/EA/  ALQ.ALCyAN.C.AK.If IE, IV 
CCMMON/BC/  TtBtOYCXt C2YCX2 tDYDXU  .AI ,I1,T4 
CCMMON/SOL/  AC4.4) ,RI(4),5$(4> 

COMMON  V (2*25*25) .X( 2 , 25  .25  )  ,P ( 2 . 25 ) ,U ( 2 ,25,25 ) , 
:PSI(2,25,25T,Gl2.25,25),AL(2,25,25) ,Y(2,*£,25), 


i 


5 

2000 


FPci«£«£S,£  31,01 

FG(2.3),CX(2),IN(2,2a) 

COMPUTATION  OF  UNSTEAOY  8CUN0ER Y-FFCPERTI ES  ALONG  SFGCK 
IKK-0 

IFCIW.NE.O)  IKK* 1 
J  *M 

IFII.NE.2)  GOTO  5 

CALL  C0EF1 ( KV, I l.M.N, M2, N2, AMI, AM2.AM3,  AM4,AN1,AN2 ,AN3, 
FAN4.S) 

IK-5 

I F < IKK. EG. 1 )  HR ITE ( 6 .1001)  IK, M, N  ,U ( 1  ,M2 »N2  ) . V ( 1 ,M2 »N2 ) . 
FALC 1.M2.N2 ) 

TX*  1  • 

DV-V (1.H2.N2) 

OU*U ( 1 ♦ M2, N2 ) 

ALT-ALd.M2.N2) 

“  IW.EQ.O.)  TX-0 . 

‘1.EQ.1  )  ALT -A  10 
l  .EC.! 


CALL 
V(2,M, 


; 2 ) 


1)  DV  *0. 

1)  DU-O. 

‘  GOTO  6 

6y6xu,TX,I’*'’U 
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1002 


C2*AMl*V(2iFiN)/AM+DU*IAM3-AMl*AF3/ANl) 
U(2tM.N)>D2*DV*(AM4-AMl*AN4/ANl ) 

K  1*M  +  1 
K2=N 

I  F(  I.Ng.2  )  GOTO  4 

K1«M 

K2*N+i 

D 1*  ( AL  (  2  * M  *N) +AL (2*Kl«K2))/2» 

1K*4 

I F ( IKK .  EQ .  1  )  MR ITE( 6  *1001 )  I K , M2 , N 2  ,C 1 * X 1 , TX, S 
01*11  /SQRT(  01) 

D3*I1/SQRT( AL(2*Kl,K2> ) 

XX— Y(2fKltK2)/D3*X(2*Kl,K2l-TX 
IF(T.cQ.O.)  XX-O. 

X(2.M*N)*01*XX/(TAN(S  MDll+TX 
Y(2*  M,  N)-(X(2,M,N)-7X)*7AN(S) 

PSI  (2,M,K)*PSH1,M2,N2  ) 

P(I,3)*XX 
GCTO  9 
J1=M-1 
J  2*N 
LP*M 

IFU.NE.2)  GOTC  3 

J1*M 

J2*N-  1 

LF*N 

CONTINUE 

I F ( AL ( 2* J1 *  J2 ) . LT  •AL(2«N«N)  .OP.  T.EQ.O.)  GOTO  12 

IF(IW.NE.O)  GOTO  12 

J2*N-1 

1 F (  I  .NE  .2 )  GOTO  12 
J  1*M— 1 

00*X(2,P,N)-P(I,LP) 

OAL* AL ( 2»M fN) 

IE-0 

CALL  FIN0(KV,IW.X(2»Jl,*2),Y(2,Jl,J2J,M3tN3»IE,I> 
DU*U( l»M2»N2l+U<l»M3»N3) 

CV*V( liM2»N2)+V(l1M3,N3) 

FF*  100(5000*  <P  (I  *LP )-X<  2,J1, J2)  ) 

IF(MP.LT.O)  WRITE  ( 6t  1 CC2  )  M  ,N  ,  P  ( I  ,LP )  .X  (  2  ,  Jl,  02  ) 
FCRFATClx.'P-X.LT.O  :•  *214.2(2 X,E12  .5  II 
IFIMP.NE.O)  GOT C  3 

EJt8*  2 

01*(AL(2*M.N>-AL(2.J1»J2)I *00 
IK-3 

I F  ( IKK. EC* 1 )  WRITE(6*1CC1)  IK , I W,  IE  ,CU , CV  ,CAL 
01*01/ ( 4  .*0  AL  *( P( I»LP)-X<2tJl,J2) )> 

D2«AI*AK*AM*00/DAL 

03— 0.25*AM*(  AK*OOI**2/OAL 

04*1 • /SQRT (AL(2yF*NI) 

05—03*04 

06»1.*AK*AK*AM*PSH2»  Jl#  J2)*00/CAL 
07*Y(2,F,N)-Y(2tJl.J2) 

A  <lt  IT*  1.+D1+02+D3 
A (I* 2) —  (04+051*11 
A(1.3)*C. 

RI  (I)»U(2f Jit J2)*(2.-A(l,l) )-V(2t Jit J2 1  * ( 04-0 5 1 *1 1+C6 
A(2y3l*-2.*  AMI /C7-A  I*AF2 

RI(2)»-(2.*AMl/D7-AI*AH2)*G(2f Jlt«2)-U( 2, J1.J2) 
RI(2)*RI  (2)+(AM3*CU+AF4*0V) 

A (2  1 1  )  *1  • 

A  (2t2 ) *0. 

A (3*3) — 2.*AN1/D7-AI*AN2 

<2  *  -*2  -  v.2 ,  jx  ,J2 . 

«8:1W: 

NC*3 

CALL  SOLVE (NO) 

U(2tM,N)*ES(l) 


g if * St n  i*iiii ) 
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7  CU*U(2tM,N)4U(2tJl.J2)*(\.(2,M,N)+V(  2,  Jl, J2I  )*04*I1 

PSI  (2,M,N)* CU*0 •  5*D0+PS  1  <2 ,  Jl  ,  J2  ) 

9  RETURN 

IC01  FCRMAT(lX,3I4,5<2X,S11.4n 

END 

C  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SUBROUTINE  BOUNDU ( IW , > , I ,AK,L) 

CCRPLE X*8  U,V,AI,PSI,G,CYOXy 
COMMON/BC/  T,B,DY0X,02>CX2,DY0XU,AI ,11 
C 

C  UNSTEACY  BOUNOERY  -  CCNCITIONS  ALONG  THE  A1RFCIL 

IF(L.EQ.C)  GOTO  10 
IF(L.EQ.l)  GOTO  11 

10  0 YOXUa-l •- ( X-B ) *AK*A I 
GCTO  13 

11  DYDXU*-AI*AK 

13  RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SUBROUTINE  RANC8< M,N , AN , AK , I , L > 

CCMPLEX*8  L,V,AI,PSI,G,CYCXU,02,A,C 
COMMON/ BC/  T.B,0YDX,02YCX2,DYDXU,AI  ,11 

COMMON  V<2,25,25) ,X<  2,25  ,25),P(2,25I,U<2,25,25> ,PSI(2,25,25I , 
FG  <2, 25, 25),  ALU,  25,  25) ,Y <2,25,25) 


BOUNDARY  STEP  OF 


UNSTEADY  F1SUC  TO  THE  AIRFOIU 


CAUL  BCUNDU<IW,X<2,M,N)  ,I,AK,L) 

V (2,M ,N) *CYCXU 

J1*M 

J2-N-1 

I F ( I .N E .2 )  GOTO  5 

J 1 *M—  1 

J2*N 

5  D  1*0* 5*(AL(2»N,N)-AL(2»J1»J2)  ) 

DC*X<  2,M,N)-X(2,Jl,J2) 

C6*V<  2,M.N)4V (2 , J 1, J2 ) 

02mAl  *  AK*  AM*  00*2  • 

D3*-0  .5*(  AK  <00 )  **2*AM 
04* AU ( 2 , M , N ) +AL ( 2 ,  Jl , J2  ) 

Of =SORT ( AL ( 2, M , N) i+SQRT (AL( 2, Jl, J2) ) 

A*<D1402402  J/04 

U  <2 ,  M»  N)*U <2,J1»J2)*(  l.-A)-2.*(V<  2,M,N ) -V  < 2 , J  1,  J2)  )  *  1 1/D 5 
Da2.*PS I < 2, Jl,J2) -00*06*11/05 
U  (2,M, N  )*U  (2, M,N ) +AK*  AK* AM*00*D/D A 
U(2,M,N) aU(2,M, N)/(l.+A) 

PSI<2tM,N) «U(2,M,N)4U  <2, Jl,J2 1-2  .<06*11/05 
PSI<2tRtM*PSI(2,Jl,J2)4C0*PSI<2,H,N)/2. 

RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  GENU( M,N,I ,AK ,AM) 

CCRPLEX  *8  U,  V,  AI,PSI,G,CYDXU,D2,D6,B2,B6 
COMPLEX* 16  AtRI.ES 

C  CRMON/BC/  T.  B, OY  CX ,  C2Y  CX2  ,DYO  XU  ,  A I ,  II 
COMMON/SOL/  A(4,4),RI <4),SS(4) 

fcdfsrssj5^ifi!Hi;)i5?5ii’Si:Hij5,’u<2’25-25,’wiu'2!i2!'’ 

C  GENERAL  STEP  OF  UNSTEACY  FIELD 
C 

J1*M 
J  2-N-  l 
J  2*  M-l 
J4*N 

IFtl.N E.2)  GOTO  5 

Jl-M-1 

J2-N 

J2*M 

J4*N-1 
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5 


DC*X (2,M,N)-X(2,J1,J2  ) 

01*0.5*  (AL(2,M,N)-AL(2,J1  ,J2  )) 

D2»AI*2.*AK*AM*DO 
03—0.  5*AM*(AK*00  )**2 
C4*AL (  2  ,  M,  N )+AL (2,J1,J2) 

D 5* SORT  (AL (2,M,N) ) +SQRT  (AL(2,J1,J2  )  ) 

D6*( 01 +02+D3)/D4 
A(l»  1)  *1.+D6 

A  (1.  2  )*2 •* (1.-03/  04 >*11/05 

RI  (1)*U( 2, Jl, J2)*(1.-D6)+V(2,J1, J2)*I1*2.*(1.+D3/D4)/D5 
RI(l)*2.*AK*AK*AM*PSI(2,Jl,J2)*CC/D4+RI(l) 
BC*X(2,M,N)-X(2»J3, J4 ) 

8 1* ( AL ( 2,M, N) - AL ( 2, Jl  ,  J2  )l*BO /( 2  .  <00  ) 

B2* 2.*A  I*AK*W*eO 
B3— 0.  5* AM*( AK*B0)**2 
B«*1./SCPT(  AL(2,M,N)  ) 

B5— 0.5*B3*e4/AL(2tM.K  » 

B 6*0.5 *( B1  +  B2+B3) /ALi 2  »M tN ) 

A(2»l)*l.+B6 
A(2,2)  — (84+65>*I 1 

RI(2)*U(2, J3» J4)*(l.-B6)+V(2, J3  ,  J« >* 1 1* ( -B4+B5 ) 
RI(2)*P$I(2,J3,J4>*AM*eC*AK*AK/AL(2,M,N)+RI (2) 


NC*2 

CALL  SCLVE(NO) 

U(2,M,N)*£S(1) 

V (2»M» N ) *E S  (2) 

D2*V(2»J1,%2>+V(2,M»N) 

02*(  U(  2  ,J1,  J2J  +  U(2,M,N  1-11*2  .*02 /C5  ) *00/  2  . 

06*(V(2»J3t  J4  >+V(2,M,N>)*84 
D6*(U(2,J3, J4)+U(2 ,M ,  N  )  + 11  *06  )  *80 /2  . 

02*PSI(2,J1,J2)+PSI (2t J3.J4) +02+06 

SfW’'"*C2/2* 

ENO 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXX 
SUBROUTINE  PRESS  (M,N,J1I 
CCMPL EX*8  U,V ,A I , PSI ,G ,C YOXU, PU 
C  CMMON/BA/  AL0,ALC,AM,C1 ,AK, 1,IS, IV 
CCMMON/BC/  T,B,DYCX,C2YCX2,DYDXU,AI  ,11 

COMMON  V  (2, 25, 2  5)  ,X(2  ,25  ,25  > ,  P(2  ♦  25  >  ,U  (2  ,25 ,25 ),  PS  I  ( 2,  25,25), 
FG(2,25,25  ),AL  (2,25,25)  ,Y (2,25, 25  ),C( 2,3)  ,0X2)  , IN (2,25)  , 

FP  X (2, 20 ) , PS ( 2 ,20) ,PU(2,2C) 

C  COMPUTATION  OF  THE  PRESSLRE  -  COEFFICIENTS  ALCNG 

C  THE  AIRFOIL 

C  PU*CPU,  PS*CPS 

C  K*N 

I  F(  I . E G.  2)  K*M 

IF(K.EC.Jl)  GOTO  5 

PS(I ,K) — 2.*(AL(2  ,M,N)-ALC)/(C1*AM) 

PU( I,K)*-2  .*(U(2,M,N) +AI*AK*PS 1( 2 , P , N ) ) 

PX(I,K)*X(2,M,N) 

GOTO  6 
5  K1*K-1 

K**K-2 

02*PX(I  ,K1)-PX(  I,  K2  ) 


LH*  “A  t  4  tMJ  rA4  4»A4I 

p|*I^K7«PS(^Kli  +  (is(I,Kl)-PS(I,K2)  )*01 
PU(I,KI  *PU(I,K1)+(PU(I,KII-PU(  1,1*2)  1*01 
PX(  I,  K  1*1. 


r  ai  i,  is  i  • 

RETURN 

ENO 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  LIFTjlUS,  US,LC2  > 

CCMPLEX*8  L,AI,CL,CM,CCL,OCM,PU,Q 
C  C  M  PL  5  X*  8  P.OYDXU.CLS, COLS, CMS 

common/ ec/  t.b,oyox,o1ycx2, OYOXU , A  I , II 
COMMON  X  ( 2,100)  ,U(2,100),Q(2,100)  »P  (2  ,2)  ,A(  128  50), 
FPX(2,2Q),PS(2,20),PU(2,20) 


* 


COMPUTATION  OF  THE  LIFT-  AND  MOMENTUM  -  COEFFICIENTS 
FOR  BOTH  OF  THE  SURFACES  AND  FOR  THE  CCMFLETE  AIRFOIL 
LIFT:  CL*CLS  ;  MOMENTU ►:  CM, CMS 


1000 


Il»(-1 )*ifl+l» 

K*I  US 

IFd.EC.2)  K*I;.S 
DC  5  J»1,K 
L»2*J-1 

X  (I ,L ) *FX ( I  ,  J ) 

U (I »L )*FU  ( I » J ) 

Q ( I ,L ) =  P$( I  ,J) 

M*K— 1 

DO  7  J*1  ,M 
N*2*J 
L 1*N- 1 
L2-N+1 

Xd,N)«(X(  I,L1)+X(I,L2)  )/2. 

U(f  ,N)»<U(I,L1)+U(  I.L2U/2. 

Q(I^N)»<C(I,Ll)+Qd,L2n/2. 

CP*0* 

CLS»0. 

CPS«0. 

N*2*K-  2 

DC  8  J*1,N 

C1»X(I.J+1)-X(I,J) 

D2«((X(I,J+1)+X(I,J)  )/2.-B)*Il 
DCL  »0.5*01*(U( I, jT+U(I,J+i) ) 

DCLS*0«  5*01* (Q( I ,  J ) +Q  ( I , J+l ) ) 

CP  *CM  -OCL  *02 
CPS»CMS-CCLS*02 
CL  «CL  -II *CCL 
CLS»CLS-I1*CCLS 
P (I, 1 ) *CLS 
Q  ( 1 ,1  )  *CMS 
P (I ,2 ) *CL 
U(I,1)«CM 

CLS»(P(2,1I+P(1,1II 
CL  *  (  P(  2,  2  )  *P  (1 » 2  )  ) 

CM  *(U(I,1)+U(1  ,1)) 

CPS*(Q(2,1  )+Q (1 » 1 ) ) 

IF(L02.EC. 1)  CM»A  I*CM 
IF(L02.EQ.l)  CL*A I*CL 
WRITE ( 6 ,1000 ) 

WRITE (6,1001 ) 

WRITE  (6, 1002)  CL.CM 
WRITE  (6, 1003)  CLS,CMS 

FORMAT (2X,‘ MOMENTUM-  ANC  LIFT  -  COEFFICIENTS  FCR  A  SINGLE* 
F,/,2X,  'AIRFOIL  WITH  A  SURFACE  CESCPIBED  AECVE : ' ,// ) 

FORMAT  (14X,  ' RCL  • ,  6X, • ICL • , 6X,  'ROM  »  ,6X  ,  *IC  P  •  ,/) 

F  CRM  AT(  2X,*  UNSTEADY*  ,4  (2X,F7.4)  ) 


1002  F  CRMAT(  2X,'  UNSTEADY*  ,4  (2X,F7.4)  ) 

100*  FORMAT  (  2X,  •  STEACY  • ,  4(  2X  ,F7  .4  )  ) 

RETURN 

ENO 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  WAKE ( XV , WE  ,TA , TB,L04, IUS  , ILS  ,L03 , NX,  PA) 

C CMPLEX*8  L,V,AI ,PS I , C L ,  0, OYD XU, PL , AUL, ALL 
CCMMON/BA/  AL0,AL0,AM2,E1, AK,I,IE,IW 
C  CMMON/BC/  T,Z,0YCX,D2Ye>2  .DYDXL . d , II ,T4 
COMMON/ SP/  X$(2,50),Y$(2,50),A(50,4),R(2,5C> 

COMMON  V  (2, 25,2  5)  ,X(2  ,25  ,25  ) ,P(2 ,25)  ,U  (  2 , 25, 25) ,  FS  I  (2 ,2 5,25  ) , 
FG (2, 25, 25), At (2,25,25) ,Y(2,25,25)  ,0( 2, 3 ) ,DX (2 ) , IN (2, 25) , 
FPX(2,20T,PS(2,20) ,PU ( 2 ,20 ) , TET(2 ) ,TED(20) 

£  CCMPUT  AT  ION  OF  THE  FIELC  BEHINO  THE  AIRFCIL 


IKK-0 
I F (LOB • EC.O )  GOTO  1 
OXS«0.5*(DM1)+DX(21 
EX*E1*  AM  2*  1  •  5 
E*E1-1  • 
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46 

C 

C 

C 


29 

20 

28 


19 f  IW,P,N,DYDX 


■aa 


1 4 

35 


§5*6-1 • 

in*  o 

I  6*0 

COMPUTATION  OF  THE  SPLINE  COEFFICIENTS 

00  2  1*1.2 
T  *TA 

I  F(  I  .  EG .2 )  T*TB 
I1»C-1)**(I+1) 

OC  46  K*l. N X 
A  (K. 1 ) *YS ( I  »K) 

A  (K  .3 ) *  R(I,Ki 
H*XS ( I »K*1)-XS(  I.  K) 

19*46 

IF(IKK.EQ.l)  MR ITE ( 6. 2CCC )  I9»K,I»JX,H»XSd,KI 
A(K,2)*(YSd,K+l)-YS(I»K))/H— H*(R(I,K  +  l)+2.*R(I»K))/3. 
A (K  .4) *<R<I,K+1I-R<I,KJ  J/(3.*H) 

TFE  STEAOY  MAKE 

XXS*1  . 

YYS*0. 

CALL  F INC ( KV. IM.XXS ,YYS .M »N ,1 E , I ) 

If7?KK.EC.1I  WRITE (6, 2000)  19 ,  IM  ,P, N, XC 1 , M, N ) 

TE*2.*I  1* ( A  LD-A L ( l,H,N)«n.51/3. 

TE*TE/ ( AL ( 1 ,M,N )  +  E*AM  2+1 • I 
TET(I I  *ATAN(T£> 

I  <*2 

IF(IKK.EC.l)  WRITE  (6.  2OC0 ) 

M*2 
N*1 
XF1-1. 

XP2*1 • 

12*0 

Jf(IKK.EQ.I)  MRITE(6,  2CCC)  I  9, 1 M, M,N , TE  T<  1 )  ,TET( 2) 
DX1*0XS 
DX2*0XS 
DXU*l. /(MA-ll 
CXL*DXU 
OC  6  14*1,30 
XP3*XP1+DX1 
XF4*XP2+CX2 
IF(IM.EQ.O)  GOT C  36 

I F(  IM  •  LE.2)  T4*TE 0(1) 

I F  (IM  «  LE.  2)  GOT C  28 
II-IM-1 
OC  29  12*1,11 

IF<X<2,I2+1,I2).GT.XP3)  GOTO  30 

Jf*IKK.EQ.1)  M  ITE(  6 , 2000)  I  9,1  W.N.N.XP3 
T4*TED(  12-1  I 
19*30 

IFdKK.EQ.l)  MRITE(6, 2000J  I9,IM,F,N,T4 
1*1 
19*28 

IFdKK.EQ.il  MRITE(6,2000)  19  ,  IN,  P,N  ,XP3  ,XP4 
T*TA 

^  ^**3  *BX  1 

i«2 

!i*-i 
T-TB 

I F( IM.LE.2I  GOTO  35 
FfcHaifSiUi.  .GT.XP4)  GOTO  34 
1f(IKK.EG.1I  MR ITE ( 6 , 20CC I  19, IM, P,N,XP4 


T4:T|0d2-l) 
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VAW-M:\\  SSiJflt:!???! 

CALL  SHCCK(KV,WE,L04,N.M,XP4,EX ,MA,CXL) 

IFdKK.EQ.il  WRITE<6,  2000 )  1 9 , 1  W  , P  ,N  ,X(  2  ,1 ,  F ) 

IF(IE.EQ.l)  GOTO  17 

I FC  IW.GT.l  )  GQTC  12 

IW*I  W+l 

M*M+1 

GCTO  4 

1 9*12 

IF  (IKK. EQ. 1)  MR 1TE ( 6*  20CG)  1 9 , 1 W, F , N , X( 2  ,M  ,  1 ) 
IFUW.EC.2)  GOTO  7 
IX*IW-1 
DC  5  N*2,IX 
1*1 

11*1  „ 

CALL  GEN(  F,N, I, IW  ) 

1*2 
I  1—1 

CALL  GEN  (N ,M, I ,  I W) 

idlKK.EQ.l)  WdTS(6,2000)  I  9  ,1  W  ,  N ,  N  ,X  (  2,  M,  N) 

OC  8  I2*l» 2 
I P*N+1 

CALL  SWITCH(lM,NyLlyL2yI2) 

IHIKK.EC.l  )  MR  ITE(6  ,  2000  )  19 ,  IW ,  L 1  »L2y  AL  (2,L  1,  L  2) 

1 1*(- 1 )**( 1 2+11 

TE*2. *1 1*  ( ALD-AL l2,LlyL2)**1.5)/3. 

TE*TE/(AL( 2,L1,L2)+E*AM2+1.) 

TET (12)  -ATAMTE) 

19*36 

IF(IKK.EG.l)  MR1T  E(6y  2  CCO  )  19 , I M, P, N,TET ( 1)  ,TET ( 2 ) 
T1*TET (1) 

T2*TET ( 2) 

T3*0.5*(T1+T2) 

CC  47  IA*1  ,2 
IM*N+1 

CALL  SWITCH(lM,N,LlyL2,IA> 

IF(N.GT.l)  GOTO  53 
Il»<-1)**< IA+1 ) 

XXS*  1. 

YYS*0. 

IE*0 

CALL  FINO(KV,  I  W.XXS  ,YYS  ,M2  ,N2,  IEy  IA) 

IF(N.EQ.I)  ALT*AL(lyM2yN2> 

IF(N.GT.l)  ALT*AL(2,LlyL2) 

XM*  (1 . -  (ALT-AL3 )*E/E1 ) ♦< (E5/E ) 

XM*2.*(  (l.  +  E5*AM2/2.)/XP-l.)/E5 
15*47 

IF(IKK.EQ.l)  WRITE ( 6 , 20CC  )  I 9y N, N, I  Ay XM , ALT 
IF(IA.EQ.l)  XP1*XM 
IFUA.EQ.2)  XN2*XP 

PII*( ( 1 . ♦E5*XM1 /2  •  )  /  ( l.  +  E5*XM2/2.  )  )**(E/E5) 

CALL  KONST  <  Q<  1,  1) ,  C(  1*  2  )  ,Q  ( 1, 3  )  y  XM1  ,E1 1 
CALL  KONST  (Q  (2«  1)  »Q(2  ,2  )  ,Q(2  ,3  >,XN2,E1> 

DC  9  K*l,20 

T4-T3-T1 

T5-T3-T2 

F»E*XM1*(Q  (1,  1)*T4+Q<  1,2  )*T4*T4+C  <  1 , 3)  *T4**  3)  /2.+1. 
FS*E*XM2*( -Ql 2, l ) *T5+G  C2 ,2) *T5*T5-Qi 2,3)*T5**3)/2.+l. 
F  *F— F  S*P 1 1 

FS*E*XM2*<Q<2,ll-2.*G<2y2)*T5+3.*C<2,3)*T5*T5)/2.*FII 
FS*FS+E>»XMl*(Q<l,l>  +  2.*C(l,2)*T4+2.*C(ly3)*14*T4)/2. 
D*F/  FS 
T2*T3-0 

IF(ABS(0).LE. 0.000001)  GOTO  10 
CONTINUE 

WRITE (6,1000)  M,N  »T3  ,  C 


i9*10 

F(IKK.EQ.l) 
F(  IW  .EQ.O) 
ED ( I W ) *T3 
TF(  IW." 


VA  ITE(  6,2000)  I  9,1  W,N,N, T3 
I  W*1 


EQ.l)  GQTC  4 
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norm 


I 


16 

15 

6 

14 


17 


N*N+1 
1 5*7 

IFUKK.EQ.l)  WRITE ( 6  y  20CC  )  I  9, 1 W,  N,  N  ,X  ( 2 ,M  ,N) 

T4*TED( IW) 

W* 

11*1 

CALL  RAND (WEy L04y  M»N y  E 1 ) 

I  1*-1 
1*2 
T  *TB 

CALL  RAND ( WE . L04 yNyMyEl) 

D*X (2 ,M,N )-X(2,  N*M) 

IF(ABS(D).LE. 0.0001)  GCTC  14 

I F(X<2  ,M,N).LT.X(2,NyM)  .QR.  I3.EC.1)  GCTC  15 
12*2 

1 F*^KK. EQ.  1 )  WRITE(6,  2CCC)  I  9y  I  W,  M  ,N  ,Xl  2  yM  ,N  )  .0 
DX1*DX1*(( X(2,N,M)-1. )/(X(2,M,N)-l. J  )**(1 .+0.08* <N-2) ) 

GOTO  6 

\lriKK.EC.l)  WRITE(6,  20C0)  19,  IW  ,M  ,N  ,X(  2  y  N  y  P>  yD 
IFU3.EQ.2)  GOTO  16 
12*1 

D >2*0X2* ( (X(2,M,N)-1. )/ ( X< 2 y N, M ) -1. ) ) ** ( l.+O. 08*(N- 2  ) ) 
CONTINUE 

WRITE!  6,  1000)  M,N,X<2  y>,M  yX(2.N,M  ,C 
19*14 

I F( IKK.EQ .1 )  WRITE! 6* 2CCC)  I  9. 1 k » M ,N ,X( 2  ,M ,N ) 

X(2,M,N)*(X  !2»M»N)+X(2»NyM) )/2 • 

X(2yN,MJ*X(2yM,N) 

X  F1*XP  2 
XP2-XP4 
IW*lW-*-l 
M*M+1 
GCTO  4 

TFE  UNSTEADY  WAKE 

TFE  INITIAL  STEP 

I  W*IW  — 1 

I  *1 

M*2 

N*1 

CALL  CCEF1 (KV,Il,MyN,M2,N2,AMl,APZ,AM3, AM4, AN  1 , AN2 , AN 2, 

FAK4,  SI) 

IF(  IKK. EC. 1  )WRITE  (6, 1009 )M 2  ,N 2 ,A M 1, AMZ ,AM3 y AM4 , AN1 , AN  2 , 

FAN3  »AN4  ,S1 
1*2 
Il*-1 

CALL  CCEF1  (KVyI 1, N »M , M3 y N3 y AM5 ,AM6 » AM7, AF8 y AN5  ,AN6  ,AN7, 

FANS  «S  2 ) 

I F( IKK. EC. 1) WRITE (6,1 009  )M3 ,N3 ,AM5 , AM6 , AM7 ,AM8  ,AN5,AN6, 

FAN7  yANfl y  S2 

ALU»U(lyM2yN2)*(AM3-AMl*AN3/ANl  )  +  V  (1,M2  ,N2  )*(  AM*-A  M*AN 4/ AN1) 
A  LL*U  ( 1  yM3  ,N3  )*  < AM7-AM5*AN7/AN5  )+V< 1 , M3 , N3 )* < AM8-AM 5*AN 8/AN5 ) 
PSI (2,M,N)*PSI(1»M2,N2 ) 

PSJ||^NjM)*PSI(l,M3,N3) 

CL* (PSI  (2yN.M)-PSI(2,M  ,N  )  )*< l.-AMl*TAN (T4 ) ✓ AN  1 )*AI* AK 
CL*ALL-AUU+CL 

V(2,NyM)*CL/(AMl/ AN1-AP  5/AN5 ) 

U ( 2 ,N  ,M  )  *A  LL+AM5*V (2,N,M)/AN5 

U  (2,M,N  )*U(2yN,M)  ♦AI*AK*(PSI  (2yN,M)-PSI  (2,M  ,N  )  ) 

V  (  2,  M,  N)*V(2yNyM)+TAN(TA)*(U(2  ,M  ,N  )-U4  2  ,N,M) ) 

G  (2  ,M  ,N  )  *0  . 

G(2, N,M)*0. 

fS-kl.-.1!?.!, 

S*S1 


124 


27 


24 

C 

C 

c 


22 


23 


21 

C 

C 

C 


51 


31 


26 

22 


IF(I  .NE.2)  GOTO  27 

IF(Ikk.EQ.I)  WRITS ( 6  , 100S )  L 1 , L 2  ,  X ( 2  ,Ll , L2  )  ,Y (2 , LI  ,L2  ) , 
FX(2,K1,K2) ,Y(2,K1  ,K2)  ,  A  l ( 2 , K1 , K2  )  ,14 , S 
D1*1./SQRT( AL(2»L1»L2) ) 

0  1*-I  1*  0  1 

D  **I1/$CRT(AL(2,K1,K2)  ) 

XX*-Y(2.Kl,K2)/03+X(2,Kl,K2) 

IF(T4.EC.C.)  XX-1. 

X  (2»L1,L2)*(D1* XX- TAN <J))/(D1-TAN  (SI) 

Y(2,L1 ,L2)*(X(2,L1,L2)-1.)*TAN( S ) 

P  (I,  3)»XX 
X(2.L1 *L2) *1. 

Y (2  .LI »L2 1*0. 

P(I,3)*1. 


i  t 


FURTHER  STEPS 


LC2*0 
DC  22 
I  E*0 
1 1=(  - 
T*TA 
IFCI. 
DO  22 
IM=1 
CALL 
CALL 
X  (2*2 

Y  (2*  2 
X  ( 2»  1 

Y  ( 2t  1 
M2*3 

N  2*2 
CALL 
DC  21 
K*J1- 
DC  23 
11*1 
IN*1 


1*1.2 

1)**(I  +  1) 


50.2)  T*TB 
Jl*3. IW 


SWITCH(J1, IM  ,M  »N  ,  I ) 

RANDS( KVfM.N.DX(I) .L02.M2.N2) 


»2>*1. 

.  2 )  *0  . 


SLIP(M2  »N2 ) 
2J1*4, IW 

J2*2,K 


CALL 

II*-] 


1*-1 
IF  *2 
CALL 
K*J1- 
CALL 


GENU(  J1.J2.IM.AK.AM2) 


GENU (J  2.J1 .IM.AK.AM2  ) 
SLIP(Jl.K) 


OUTPUT  CF  TME  WAKE  FIELC 


DC  51  1*1.20 

WRITE! 6.1012)  TED  (I ) 

J1*IW 

DC  18  1*1,2 
WRITE (6. 1004) 

IF(I.EC.l)  WRITS (6.1010) 
I  F(  I  .£0  .2  )  WRITEI6.  10111 

WRI?E(6*l6o)> 

WRITE (6,1008) 

K  *J—  1 
N*K 

I  F(  I .  NE  .2  )  GOTO  26 
M*K 

DC  31  N*J. J1 


25 

tloc 


UU  3 1  Pl'JfJl 

WRITE (6,1009 )  M.N.X(2,M.N).Y(2.M.M,AL(2«M.N)  ,U(2.M,N) 
F(jV(^,M^N),PsK2,M,N),G  (l.M.N) 

CONTINUE 
00  32  M* J, J 1 

WRITE ( 6. 1C09 )  M.N .X ( 2.M »N )  ,Y( 2 » M , M ,AL( 2, M, N) ,U  (2 ,M »N) 
F<?CNTl'NUE  »PSI(2tMtN,»^  (2  .M.Nl 

FC  (Ix^fcAKE  8  AO:  •  ,214, 2  (2X  ,  F8.3)  »2X,  E12.5) 
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2000 

100  4  .  _ 

1005  FORMAT 1 IX, /  ) 

1 C07  FORMAT ( IX,//) 

1008  FORMAT! 2X, 'POINT* ,7X, • X  •  ,10X , • Y • . 7X , • LA MBOA • , 7 X , *RL  '  ,9X , • II*  , 
F9X,'RV  •  ,9X,  'IV  ,8X,'RPSI',7X,'  I  PS  I' ,  8X,  *RG'  ,9X  ,'IG' ,/) 

100S  FORMAT! *X,I2t' ,* ,I2,11(3X,F8.5) ) 

1010  FCPMATUX, 'UPPER  MAKE  FIELD  :•) 

1011  FORMAT! IX » ' LGWER  MAKE  FIELD  :•) 

1012  FORMAT!  IX, F10. 51 

1  RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  KONST ( Cl , C2 ,03 , AM2 , El ) 

ALC*AM2-1. 

E=E1-1. 

E5*E-1  . 

E2=E*E 
E3*E2*E 
64=6 2*6 2 
AM4=  AM  2*AM  2 
C  1*2. /SORT ( ALO) 

C 2= ! 1  AM  2-2. )**2+E*AM4 )/(2.*AL0**2) 

C '=El*(AM2-(5.«-7.*E-2.*E2)/(  2.*E1  1  )<*2/6. 

C3=C3+  1-4.  * E4+2 8.  *E3  +11  ,*E2-8  .  *E-3.  )/!  24. *E  1) 

C 3*C3“E 1* !  !5.-3.*E)*AM4-!12.-4.*E  )*AM2+8.)/48 
C3*(C3*AM4+3.*( AM 2-4 •/ 2 • )**2/4. )/ !AL0**3.5) 

C3=0. 

R  ETURN 
END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  SLIP(M3,N3) 

CCMPLEX*8  U,V,G,PSI,PU,AI,DYDXU,OA 
CCMPLEX*16  A,RI,ES 

COMMON/ eA/  ALO , AL  C  »AM ,C1 ,AK, I, IE ,  IW 
CCMMON/BC/  T,  e,  CYCX,D2YCX2  .DYDXU ,  AI  , 1 1 ,  T3 
COMMON/ SOL/  A(4,4),RI14),E$(4> 

COMMON  V 12, 25. 25)  , X ! 2 , 25 ,25 ) ,P !2  ,25  )  ,U 12 ,25 ,25 > , FS I  (2, 25, 2 5) , 
FG 1 2,  25, 25)  ,AL!  2, 25, 25  ) ,  Y  12, 25, 25 1  ,Q(2,2  5)  ,0X12  ),IN(2,25)  , 
FIN212.25)  ,PX(  2,20)  , PS  12,20  ),PU  (2,20,  TETli)  ,TEC(  20) 

C  SLIP  DOES  THE  SIMULTANEOUS  STEPS  FROM  BOTH  SICES 

C  OF  THE  WAKE  TO  THE  SLIP  -  LINS 
C 

M2*  M3-1 
N2*N3— 1 
M4*N3 
N4*M3 
M13*M3 
N13*N3-1 
M  14*M4-1 
N14*N4 

DC3*X(2,M3,N3»-X(  2,M12,M3) 

0AL3=AL(2,M3,N3 )+AL 1 2 ,M 13,N  13 ) 

D13*SQRT!AL!2,M3,N3) ) +SCRT ( AL ( 2 »M 13 ,N13 ) ) 
D23*AL(2,M3,H3)-AL(2,M12,N13) 

A  (2,1) *l.  +  0. 5*D23/DAL3*2 .*AI *AK*AM*C03/DAL3 
A(2,1)*A(2,  1 )  — AM*  1  AK*003  )**2/DA  L3*0.5 
A  (2,2) *2./D 13+AM* ( AK*DC3 ) **2/ (CAL2*C12) 

RI(2)*(2.-A(2,l))*Ul2,M12,N13)+(4.  /D13-A (2,2) )*V(2  ,M12,N12) 

R  II  2 )  *R  I(  2  )*2  .  *AK*AK*  AM*  PS  I(2,M12,N13)*DC3/0AL3 
A  (2  ,3  )  *0  . 

A  (2,  4  )*  C  . 

002*X(2,M3,N3)-X(2,M2,N2» 

A (4, 1 )*-TAN (TED1N3 ) ) 

A  (4,  2) *  1 • 

A  (4, 3  #  •* -A (4, 1 ) 

A (4,4) *-l • 

R I  (4 ) *0 • 

0C4*X(2,M4,N4)-X(2,M14,M4) 

014*SGRT  (AL(2«M4«N4))+SCRT(AL(2,M14,N14)  ) 

A  1 1,  1 )  *  1»*AI*  AK*DC3/2. 


FORMAT! IX j4  14,21 2X,F8.3) ) 


1009 

1010 
1011 
1012 
1 


UK 

ASS?-" 


nnnn 


A(1,2)*-AI*AK*D03/013 
A(1 ,3 ) »-l.-AI*AK*004/2. 

A(l,4)*-AI*AK*D04/014 
RI(1)=PSI(2»M13,N13)“PSI(2»M14*N14 ) 

R I  ( 1 )  =R  I  ( l)-D04*(U(2,M14.Nl4)+2.*V(2TM14.N14>/Dl4)/2. 
RI(1)*-(PI (1)+D03*(U( 2,M13,N13 )-2  .*V( 2 , M13 ,N13 > / C 13 ) / 2. ) 

RI  (1)  =RI  (1)*AI*AK 
0AL4*AL(2,M4,N4)+AL(2  ,M14,N14) 

A  (3,  1>=0. 

A  (3,2)  =0. 

A  (3  ,3  )*1.+0.5*(AL(2,M4,N4)~AL(  2,  N14,  N14  )  )/DAL4 
A  (3,3 )=A(3,3)+2.*AI*AK*AM*D04/0AL4-AM*(AK*C04)**2/0AL4*C.5 
A (3  ,4 ) *-(2 . /014>AM* ( AK*C04) ** 2/ ( C A  14*014 )  ) 

RI(3)»U( 2,M  14,N14)*(2.-A(3,3) >  + V ( 2 , V 1 4,N1 4) *( -4  ./C14-A ( 3, 4  > > 
RI(3)»RI(3)+2.*AK*AK*A)-*FSI(2,M14,N14)*C04/CAL4 

NC=4 

CALL  SOLVE ( NO ) 

U  (  2,  M3 » N2)  *E  S  (1 ) 

V  (  2,  m3,  N3  )=ES  (2) 

U  (2,  M4 ,  N4)  =  ES  (3) 

V ( 2,M4  *  N4  )  =  E  S (4 ) 

DA=0.5*(U(  2,M3,N3)*U(2,M3,N13)  ) 
CA=(DA-(V(2*M3,N3)+V(2»P13*N13))/C12)*DC3 


PSI(2,M3  ,N3  )=PSI<  2,M13,M3)+DA 
0A=0.5*(L(2,M4,N4)+U(  2,M4,N14)  ) 


CA=(0A-KV(2,M4,N4)+V(2,P14,N14)  )/C14>*004 

PSI(2,M4,N4 )=PSI ( 2,M14,N14)+DA 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SUBROUTINE  CCEP 1(KV,I1,P,N,M2,N2,A1,A2,A3,A4,E1,£2,E3«B4,S) 
C0MPLEX*8  L,V,PSI,G 
C  CMMGN/BA/  ALO,  AL  C , AM  ,C  ,AK  ,  I ,  IS  ,  IV, 

COMMON  V( 2  ,25,25) ,X( 2, 25,25) ,P (2,25) ,U( 2 , 25 ,2 5  » , PS  I (2 ,2 5, 25 ) 
F, G(2, 25 ,25) ,AL(  2  »  25  ,25  ) ,Y(  2, 25 , 25 ) 

CCEF1  DETERMINES  THE  COEFFICIENTS  FCR  THE  UNSTEADY 
TEIPEL  -  CHADWICK  SHOCKPOLAR 

I E*0 

CALL  FINO (KV,IW,X  (2  ,M,N ),Y(2,M,N ) ,M2,N2  »IE  ,1) 

CX=C-2. 

ALT=AL(1,M2,N2) 

IF(IE.EQ.l)  ALT=ALO 
ANY*  (ALT-AM+1  .)/(C*AM)+l. 

A  NY2*ANY*ANY 
L1*M  +  1 
L2*N 

IF(I.NE.2)  GOTO  1 
L  1*M 
L  2*  N+ 1 

1  IFUl.GT.KV  .OR.  L2.GT.KV)  IE*1 
I  F (  IE  .6C.1  )  GOTO  2 

$*(Y  (  2,L1,  L2)-Y  (2, N, N )  )/(  X  (2,  L  1, L  2 )-X(  2,M,N)) 

2  IF(IE.EC.l)  S*2.*Il/( SQRT( ALT ) +SQRT ( A L( 2, N  «N) )) 

S*AT AN ( S  ) 

C  Y*  SIN ( S )**2 
CZ*COS(S  )**2 
AN*1 •/ (AM*CY* ANY  2) 

A  1*2.*C Y*ANY*SI  N(  2 . *S ) /C 
A2«2.*AK*CY*  (l.  +  AN)/C 
A  3*CX  *C  Y  *  ( 1  •  -2  •  *  AN  /  CX  )  /  C  *C  Z 
A4»SIN(2.*S)*(1.+AN)/C 
B1«-2.*CY*ANY*(C0S(2.*S  )*AN)/C 
B2»-2.*AK*SIN(S)*C0S (S  )*(1.+AN)/C 
B  3*A4 

84*CY+CZ*CX*(1.-2.*AN/CX)/C 

RETURN 

ENO 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  SOLVE (M 


nOnn 


1 

2 


13 

14 

15 
10 


12 


It 


sawRit/nw 


4 ) »C  (  4  ) »  X ( 4 ) 


( G(  M ,L ) »  L*1 »  N)tC(M) 


SOL VE  GIVES  THE  SOLUTION  FOR  A  COMPLEX  SYSTEM  OF 
LINEAR  ECU AT  IONS  G*X*C 

I  KK*0 

IF(IKK.NE.l)  GOTO  2 
WRITE  (6, 1001) 

CC  1  M*1.N 
W FITE  (6,1000) 

MMN-1 

OC  10  M»1,MN 
K*M+1 

OC  10  J*K,N 
G(M,J  )=G(M, J)/G(M ,M ) 

IF(M.EQ.l)  GOTO  14 
MA*M-1 

OC  13  L*1,MA 

G(M,J)*G(M,J)-G(M,  L)*G(L,J)/G(M,M) 

CCNTI  NUE 
DC  15  L*1,M 

G(  J^K()  =  G(J,K)-G(L,K)*G(  J  ,L) 

C(1)*C(1)  /G  (1 » 1 ) 

CC  12  1*2, N 
C(I)*C(!)/G(I,1) 

MA=I-1 

OC  12  M*1 ,M  A 

H*C(  I)-G(  I,M)*C(M)/G(I,I) 


1001 

1000 


c ci :  _ 

X(N)  -CCM 
OC  11  1*1, MN 
NA*N-I 
X (NA)*C (NA  ) 

N6=NA+ 1 
OC  11  J*NB, N 

X(NA)*X(NAl— G(NA,J)*X(J) 

FCRMAT( IX, 'SOLVE- ENTRY: ») 

FORMAT (  IX, 10C2X, 510*3 ) ) 

RETURN 
END 

CXXXX>XXXXXXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SLBROLTINE  SWITCH( J, K, h, N, I ) 

C  INDEX  -  SWITCH 

M*J 
N*K 

I F(I *NE *2)  GOTO  1 

M*K 

N*J 

1  RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
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I 


APPENDIX  B 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


CASCADE 


OSCILLATING  AIRFOILS 


MACF.GT.l 


CCMPLEX*8  L » V »PSI »G »  CY CXU 
CCMPLEX*8  At  »PU*Et 
CCMPLEX*16  EL,RI,ES 

REAL**  TX*TY,XX»YY,X»Y*AL»D1»D2*02*XP,ALC»P,C3*ALZ 

COMMON/ BC/  Tl?f  2? f  (  6y^)J.  d|y  &X2 1  Cy£xU  » A I « E I » 1 1 » ffi^CK  » I E 
COMMON /SP/  XS ( 2 *50)  ,YS<2  *50) , A ( 2 » 50 ,4 1 , R  <2  ,50  ) 

COMMON/SCL/  EL(4.4»,RI (4),ES<4) 

COMMON  V  (2  ,3, 50 ,20) ,X ( 2 , 50, 20  I , P ( 2,50 » . L C 2. 2 ♦50, 2C ) , 
FPSI(2,3,5C,20» ,G<2,3,50,*0) ,AL < 2 ,3 , 50 ,20 > , Y <2 ,3 ,50 ,20 ) , 
FQ(2,50) ,CX(2),IN( 2,50>,IN2(2,5Q),FXt2,30),PS(2,3C) ,PL(2,30) 


OPTIONS 
L  Cl  *0 


*1 
*2 
LC2  *0 
*  1 

LC3  *1 
*0 

LC4  *1 


MA  * 
MAXS 
IBLA 


0  :  COMPLETE  OUTPUT 

1  :  ONLY  PRESSURE  CISTRIBUTICN 

2  s  STOP 

0  :  PITCH 

1  :  PLUNGE 

I  :  CO  THE  1.  PASSAGE 

0  s  DO  THE  1.  PASSAGE  NOT 

1  :  SURFACES  ARE  ANALYTICALLY  GIVEN 

0  i  SURFACES  ARE  PCINTWISE  GIVEN 
MAXIMUM  NUMBER  OF  FCINTS  CN  THE  SURFACE 
*  BLADE, WHERE  THE  PRESSURE  DISTRIBUTION 
»  FIRST  BLADE  OF  FIELD  -  OUTPUT 


.LT.20 
IS  COMPUTEC 


KV»50 

A  I*CMPLX  (0  •  ,  1  •  I 

REAO ( 3  *  SS9 )  L011LC2,LC3,L04,MA, MAXS, IBLA 

IFIL01.E0.2J  GOTO  10 1 

MAXS*MAXS+1 

MAXIMA 

CALL  PRCFIL(L04,T1,T2,NX» 

READ  ( 3  ,1000  )  AK,AM.C,CXm,0X(2) 
IFIAM.EC.G.)  GOTO  102 
REAO ( 3 , 1020  I  AMY, B,ET ,EM 
PI»4.*ATAN(1.) 

ET*ET*PI/180« 

TX1*1.+EM/TAN(ET» 

AMY-AMY*PI/180. 

AX*AM 

AM*AM*AM 

AL0»AM-1. 

Cl-C+1. 

AL0»AL0**1.5 
C2=C1*AM*1.5 
I  M*1 
NT*NX+1 
DC  74  1*1,2 
OC  74  J*1,NT 

WRITE ( 1 ,1026)  XS( I, J» ,YS(I,JI,NT 
INITIAL  FIELD 


XM*i./SCRT( ALO) 

D*4./9. 

OC  46  N*1 » 1 C 
M*N+1 

Y  II  ,1 , M ,M*0« 
XU,l,M,NI*0*<N-l)-2. 

OC  47  M*3,KV 

X(l,l,M,l)*D*(M-2l/2.-2. 
Y(1»1,M,1 )  *XM* (2*+X(l,l,M,l) ) 
DC  48  N*2 , 20 
L*N+2 

DC  48  M*L,KV 
K«M-1 

X(1,1,M,N)*X(1,1,K,NI*C.5*D 
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I 


Yd,  lf  M,NJ*Y(i,l,K,N)+XMD/2. 

OC  44  M*1,KV 
DC  44  N*l, 20 
AL(1,1,P,N)*AL0 
PSI(l,i,M.N)*0. 

G  Cl  ,1,P,N)*0. 

U(I,1,M,N)*0. 

V  ( 1  ,1 , M ,N )*0 • 

CCMPUTATION  OF  THE  SPLINE  -  COEFFICIENTS 

OC  49  1*1,2 
DC  49  K*1»NX 
A  ( I,  K»  1 )*YS (I »K I 
A ( I ,  K  ,  3 ) *  P(I,K) 

H*XS( I *K+1)-XS( I ,K) 


1024 


A(I,K,2)*(YS( I,K+1)-YS  (I,K) )/ H-M- (R  ( I  ,K  +  1 )+2. *R ( I , K ) ) /3 . 
A(I,K,4)*(R  (I ,K+1)-R( I ,K) )/(3.*M 

EI*COS  (AMY)+AI*SIN(AMY  ) 

TX=EM/TAN(ET) 

TY*EM 
IP*1 
I  E=2 
M1=0 
N1=0 

WRITE ( 6  *  1C2 1 )  IM 
XFL*I M*TX 
YFL*I M*TY 

WRITE!  1,1026)XPL, YPL,IM 
1*0 
I  E*0 

CALL  FINC (K V, IM , 1 8 , IR , TX ,TY ,H1 ,N1 ) 

IF(I.EQ.l)  GOTO  67 

T2Y*2.*EP 

DC  56  J*2,KV 

IF(Y(2,1,J,1).GT.T2Y)  GCTO  57 

CONTINUE 

MAX2-J 

TFE  STEAOY  FLOW  FIELD 

12*0 

12*12+1 

IF(I2.GT.30)  GOTO  101 

WR  ITE (6,1024 )  12, MA , J 1  ,CX( I ) 

FCRMAT (IX , 13 , ' •  ITERATION  ALONG  TFE  SUR FACE ', 2  14 , 2X ,E S. 2 ) 
MA  *MA  X 

XX»EM*(IE-1)/TAN(ET) 

YY»EM*( 18-1 J 

IFU.EQ.2  .OR.  IR.GT.l)  NA*MAX2 
IF(IR.GT.l)  1*18 
I  1*(-1>**(I+1) 

MZ*1 
I  EACK*0 
I  C*1 

I*IM )  .EQ.1  .ANC.  IR.GT.l)  IQ*C 

TfTJ  .EG. 2)  T*T2 
MN*KV 

IFCI.EQ.2.  OR.  IR.GT.l)  NM»20 
OC  5  K*1 ,20 

CALL  ^WlfcH (J,K,M,N,1) 

AL(IB,IR,P,N)*0. 

M2*M1 

N2*N1 

TFE  STEACY  BOUNDARY-PROPERTIES  BEUNG  THE  SFOCK 

IE-0 

KW*MM+1 


- -  j  ,, 


OUJ  ooo 


OC  9  J=2»KW 
KT»J-1 

XF»DX(I )*( J-2 l+TX-XX 

I  F( T.EQ.O.  .OR.  IQ.EQ.O)  XP-TX-XX 

IFdQ.NE.O  .AND.  XP.GT.l.  .AND.  1  .EC.  1 )  GOTO  8 

I F( J. GT.PM  J  GOTO  8 

L  1*1 

CALL  SWITCH(J,LI,M,N, I ) 

CALL  SHCCK(MM,L04,EM,IR|IB.M,NtXP.P2,N2,C3) 

IFUR.GT.l  .AND.  lB.EC.1  .AND. Y ( I e  , IR »P  , M  .EC .EP I  GCTO  63 

IFU.EQ.l  .ANC.IR.EQ.l )  GOTO  9 

IFtIB.EG.2  .AND.  Y ( I B  ,  I P  ,M ,N) . EC. C . )  GOTC  63 

IF(X(IB.IR.M,N) .LE.l.l  GCTO  9 

AL0»-Y(lB*t P,M,N)/(1.-X(I8,IR»M,N)I 

ALO* 1. / ( AL  C*ALOI 

IFIALO.GT . ALO  .ANC.  IM.NE.l)  GOTO  8 

IF<X(IB,IR,P»N).GT.l.)  GCTO  8 

GCTO  9 

KT*KT+1 

GOTO  8 

CONTINUE 

CONTINUE 

IF(X(IB*IR*2«l).GE.l.)  GCTO  38 
IFU.EQ.2  .AND.  X  ( 1 8, IP  * P,N > . GE. 1 .  >  KC»2 

ALL  OTHER  STEPS  OF  THE  STEADY  FLOP  FIELD 

KA=KT 

DC  1  J*2.KA 
J1»J 

I F( J. EQ.KA  .AND.  I.EQ.2  .AND.  IP.EC.l)  GOTO  15 
IFU.EQ.KA  .AND.  IR.GT.U  GOTO  15 

CALL+lwlTCH(LI *J*M,N,I) 

CALL  RAISC(L04»IB,  IR,MtN,C3> 

IF(X(IB*1R« P»NI.GT.TX1)  PZ»0 

I F ( IR .GT .1 .AND. I.EQ.l.ANC.Xt IB*IR*P*NI.GT.l.. A NO .1 C  «NE . C )  HZ=0 

IFIMZ.EC.O  .ANO.  IR.GT.U  KC*1 

KE-KA+1 

DC  3  J2»J»KB 

IFU2.EC.KB)  GOTO  3 

Hit  SWITCH(J2*LI  *K1*K2?I) 

IFCAL(IEtIRtKl,K2».GT.AL(IBtIRt  M,M  »  GOTO  6 

CONTINUE 

J2-J2-1 

IMI* J-1)»J2 

L-J+2 

DC  7  K»L « J2 

CALL  SWlTCH(KtJtM,N,U 
CALL  GENUBflRtMtN*  1) 

IFtMZ.EC.O)  GOTO  15 
I F( J2.EQ.KA )  GOTO  1 

CHARACTERISTICS  OVERTAKE  THE  SHOCK 

J2-M+1 

J4*N-1 

J5«M 


J6-N-1 
I F( I.NE.2I  GOTO  12 
J2»M-1 
J4-N+1 
JS-M-1 
J6«N 


D1»Y(I8. IR1J3.J4I-Y( IB» IR.J5. J6 ) 

Dl»Dl/(XUe,IRtJ3,J4>-X(IB,IR,  J5  ,.!6)  > 

D 2s II /SORT ( AL(I8»IRtM,NIJ 

K1»M+1 

K2«J 

I  F(  I  .NE  .2 )  GOTO  14 

K1»J 

K2«N+1 

AL(IB*IR*K1»K2)*AL( IB* I R  *  M » N  ) 
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D2=-D2*X( IB.IR»M.NI+D1*X(IB»IR.J5»J£1 
D3»D3-Y( IB,lR,J5,  J6I+YUB,  IR.M.nT 
X(IB»IR*K1 .  K2) *D3/ ( D 1-C2 I 

Y(I8.IR.Kl»K2}®D2*IX(IE»IR.Kl»K2l-X(I8»IR»M»N)l4Y(IB«IR,M,N) 

1F(1.EC.2)  J3*J4 

DC  11  K*  J3»  KA 

IF(K.EQ.MM)  GOTO  11 

LI*K+1 

C ALL  SWITCH(LI.J,M,N»I> 

LI»J-1 

CALL  SWITCH(K,LI »K1 ,K2»I) 

AL(I8.IR,M»N)*AL( IB.IR  .K1.K2I 
CCNTINUE 

IF<KA.LT.MM»  KA*KA+1 

I F(MA  .GT .IN(I.J-ll)  MA«M+1 

CCNTINUE 

AUTOMATIC  STEP-SIZE  CONTROL 
JZaJ  1 

IF(KC.EC.l)  J2*KT 

IF(T.EQ.O.  .OR.  IC.EC.OI  GOTO  26 

IF(J2.EQ.MAI  GOTO  28 

IFU2.GT.MA)  GOTO  68 

OIF*( J2*1.)/(MA*1.I 

IF(DIF.GE. 0.851  GOTO  65 

GCTO  72 

DIF-I J2*l.l /(MA*1.) 

IF(DIF.L§. 1.151  GOTO  65 
DX (I ) *DX ( I ) *OIF 
GCTO  73 

IFU2.GT.MAI  CXd  )  =  DX(  11*1.05 
IFU2.LT. MA)  DX(I)=OXtlM0.96 
CCNTINUE 

IFU2.NE.MA1  GOTO  16 
CCNTINUE 

IF( IR.EC.l  .AND.  I.EC.l)  GOTO  59 
IF(KC.NE.O)  GOTO  59 

ACDITIOML  POINTS  FOR  TFE  FIELDS  IN  THE  PASSAGE 

DC  33  LY=2.  20 
LI»LY-1 

CALL  $WITCH(LY.LI»N»N»II 
IF(AL(IB.IR«M.N)*EQ.O.)  GOTO  35 

CCNTINUE  °°^>  M,NtX< 18 tIRfMtN) ,Y( Ie,IR,M,N) ,4L (IEf IR,H,N) 

KC*LY 
L I*KD— 1 

till  SW ITCH (LI. LZ .M.N . I I 
LE-1 

CALL  SW ITCH (KD.LE. Ll.L2.il 
LZ-KO-2 

CALL  SWITCH(LI.LZ, L3.L4.il 

Yl*Il*(X(IB.IR.Ll.L2l-X<IBtIRtM.NI  I /SORT!  AC  (ZB.IR.P.M)  +EM*(  I E—2 ) 

X1*X (IB. IR.Ll.L2l 

Y(IB.IR.L1,L2I»Y1 

D1»(Y(IE,IR,L3.L4)-Y( IB.IR.M.NI I/(X(1B.IR.L2.L4}-X(IB.IR.M.N} ) 

D 1 301  / 1  .5 
DC  43  JY*2,LZ 
CALL  SWITCHiKD. JY.M.N, II 
CALL  SWITCHtLI. JY.Ll.L2.il 
D2*I1/SCRT (AL (IB.IR. LI. L2II 

X2*D1*X1-Y1+Y (I3.1R.L1.L2 l-D2*X (IE.IR.L1.L2) 

XdB.IR.M.NI *X2/( 01-02 1 
YdB.IR.N.N  1»01*(X(IB,IP,M.NI-X1|4Y1 

CALL  si»*!tch(kc.li,a.n.ii 

Y(  IB  »IR*P»M«EM*  (lB-lJ 
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i 


l 

f 

!  I 

l 


C 

c 

65 

C 

C 

C 

c 

c 

59 


1025 


18 


i 

c 


22 


24 


29 


X(I8,IR»M,N)«(Y(IB,IR,H.M-V1)/C1-*X1 

CC  65  JY-l.LZ 

CALL  SWITCH(LI.JY  *  F. N  »  I ) 

CALL  SWITCH (KO.JY.Ll.12.1) 

WRITE (6 ,10091  JY,KC.X(IE.IR,M,N),Y(  lB.IR.P.M  ,X(IB,IP  .L1.L2I  , 
FY (I B . I R « LI . L2) 

CCNTINUE 

WRITE  uilCCS^^NlxIlSjlPtHtN)  .Y  ( IB  tIR.  F  .M 
THE  UNSTEACY  FLCW  FIELC 

THE  UNSTEADY  BOUNDARY  FPCPERTIES  BEHIND  THE  SFCCK 

KA*KT 

LZ*2 

LI*1 

CALL  SWITCH(L2»LI .I7.Ifi.II 
XFL*X(IB,IR,I7.I8)+(lM-l)*EM/TAN(ET) 

Y  FL*Y (IB.IR.I7. I8)+( IM-1 )*EM 
WRITE ( 1 . 1C26 )  XFL.YPL.IF 
CALL  SW1TCHCKT.LI.I7. Ifi.I) 

XFL*X ( IB . IR . 17. 18  !♦ ( IM-l )*EM/T AN ( ET ) 

YFL»Y(IBtIR.I7.I8)«-(  lF-l)*EM 

nffliidHiti  i5‘-’¥PL'1" 

FORMAT ( iX . 1 3 .  1  •  UNSTEACY  FIELC*) 

I  E*0 

DC  18  J*2» KA 

CALL  SWITCHU.LI.M.N,  I) 

IF(X(I8.IRtP,NI.LT.0.l  GCTO  18 

CALL  RANCS(MM,IB,IR.M,N,LQ2.AMY .M2.N2) 

CCNTINUE 

IP(1.EC.2)  X(I8fIR»1.2 )*TX 
I F( I . EQ . 2)  Y ( IB .1 R .1 ,2  )  *  1 Y 
IF(I.EC.l)  X(IB,IR.2, 1)*TX 
IF(I.EQ.l)  YdBfIR.2.1  )*TY 

ALL  OTHER  STEPS  OF  THE  LNSTEADY  FIELD 


38 


IFU1.EC.2)  GOTO 
J5»J1-1 
DC  20  J*2,J5 
LI*J  +  1 

CALL  SWITCH(LI,J»M,N.I ) 

CALL  RANCB(IB.IR.M.N*LC2) 

IFU.EQ.J5  .ANO.  I.EQ.2  .AND.  IR.EC.l)  GCTC  2C 
IFIJ.EC.J5  .AND.  IR.GT.l  .ANO.  M2.NE.0)  GCTC  2 
L»J+2 

J2*IN( I. J-l) 

OC  22  K»L.J2 
CALL  SWITCH(K.J,M,N,I ) 

CALL  GENUdM.IB.IR.M.Nt  I.AK.AM  ) 

IFU2.EC.KA)  GOTO  20 
I  E*0 
K 1*M+1 
K2*J 
K|»K1 

I F ( I .NE.2 )  GOTO  24 
K  1*J 
K2-N+1 
K3«K2 

CALLKPANDi(MA!l|lJfR,,Kl  .K2.L02.AMY.M2.N2) 
J3-J2+1 
OC  29  K«J3tKA 
IF(K.EO.MM)  GOTO  20 
LI«K*I 

CALL  SWITCH (LI tJtM.N.I) 


2C 


V( 

G 

P 


i 

K  2 ) 


(IBflR.P.N )»V( IB.IR.K1.K2) 
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IFU2.LT. KA  .AND.  KA.LT. KM)  KA=K A  +  l 
CONTINUE 

OUTPUT  STEADY  ANO  UNSTEACY  FIELD 

JF(IM.LT.IBLA)  GOTO  28 
IF(LOl.NE.O)  GOTO  38 
WFITE I 7y 1004) 

if  :I3: 

WR ITE ( 7 » 1CC7 ) 

WFITE ( 7  r  100 1 )  AK»  AX  *C t  E  » CX( II f  T 
DC  25  J«2*JI 
K»J—  1 

LL«INC I.KI+1 
LL-INU  yKI 

KSifIH;1882! 

N«K 

I F ( I *NE .2)  GOTO  26 
M*K 

OC  31  N«J.LL 

WRITE!  7»  1005)  M»N»X(IBfIRtMtN)}N(IByIR«FtMy4L(IEtIP»PtM 
•F,U{IB,IRyW,NI,V(IB,IP,M,N),P$I  < IB , IR , M, N I , G tl B, IR, M  ,N > 

OC  32  M*JyLL 

WRITE  (  7.1CCS)  M,NyX(I8yIPyMyN)yY(IEyIR.PtM,AL(IEyIRyPyN) 
FyU(IBtIR.P.N)yV(ieyIRyMyN)  yPSI  (IBylPyMyN)  yGne.IPyF  yM 

88SI!«|1004’ 

IF(IR.GT.l)  GOTO  60 

IF(I.EQ.l)  IUS*K-1 

IF(I .EQ.2)  ILS»K-1 

IF(I.EQ.l)  GOTO  30 

IFUM.EC.l  .ANO.  LC3.EC.C)  GOTO  62 


,1  .ANO.  LC3.EC.C)  GOTO  62 


CHANGING  TFE  COUNTERS  FCP  THE  CCMFLTATICN  OF 
THE  FIELDS  BEHINO  THE  REFLECTED  SHOCKS 

IF-IR+1 

I F ( IR.GE.4 1  GOTO  62 

ifi*ii2?i8bfI8 62 

L  1*1 

CALL  SWITCH(KTyLIyMyNyl) 

CALL  SWITCH(KTtLIyAlyMyl) 

TX»X( IByIR-lyMyNI 

TY»Y(le,IR-lyM,NI 

I F( IR. EC.2  .OR.  IR.EC.4)  IE»1 

I F { IR . EC .3  .OR.  IR.EC.5)  IB»2 

GOTO  67 

CONTINUE 

IF(KC.EC.O)  GOTO  77 

COMPUTATION  OF  THE  BLACE  -  WAKE  IK 

SUBROUTINE  *WAKE* 

CALL  WAKE 
NEXT  BLAOE 

iETlStLE.F-AXS*  GOTO  58 
IP-IR-1 

CALL  PRESS  (AMYy IRvEMyLC2  yAXyC I 

WRITE ( 1*1026 1  XPLyYPLyIP 
GCTO  100 

TRANSFORMATION  TO  PROFIL  1 


8ii8/icsi?r 

MM-20 
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51 

70 

101 

999 

1C0C 

1001 

1002 

1003 

1004 

1005 


IFUL.EC.l)  MM»KV 
DC  51  P»1,MP 
OC  51  N«l,20 

X(1,IL,P,N)*X(2,IL,P,N)-XX 
Y(1.IL,P,N)*Y<2  .IL.A'jM-EK 
PSlll,  U,M.N)*P$I  (2,IL.P,N> 

U(1,IL,P,nI»U(2,IL,P,N) 

V(1,IL,P,N)»V(2,IL,P,N) 

G(1,IL,P,N)«G(2.IL.P,N) 

A  L(|l  1 1  »NI*AL(2»IL,P  ,M 

GOTO  55 
IP*-1 
WFITEl 

FCRHA1  ifui  jui 
FORMAT (3F10.5,2E10.3) 

FORMAT ( 1X» //»  1X,*W*C/U«  ',F5.3,»,  P*  ',F4.2.',  K«  »,F4.2, 

F',  B/C*  ' »F4.2 » ' »  CX»  '.§9.3, •.  T/C*  ',F6.4,//) 

FORMAT! IX,  '  THE  PROPERTIES  AT  The  PESHFCINTS  OF  THE  FLOW  FIELC ' ♦ 
F/ tlX » '  FOR  THE  UPPER  SURFACE  OF  TFE  ',12,'.  ELAOE',//» 

FORMAT  ( IX » '  THE  PROPERTIES  AT  TFE  PESPFCINTS  OF  THE  FLOW  FIELC, 

FFCRMAT(lFlfHlN°  THE  SH0CK  IN  THE  PASSAGE', ✓/» 

FORMAT (IX,/) 


iiu}??si2ru’PLi1' 


1007  FORMAT ( IX »// ) 

1008  FOR PAT { 2X » 'FOINT' «  7X  , '  X  • , 1QX , • Y • ,7X , • LAPeOA • . 7X .  'RU  '  ,9X  ,  •  II  • 
F9X,  'RV  •  »9X,  'IV'  ,8X,  'RPSIS7X,*  IPSI'  ,8X,'PG'  ,9X,'IG'  ,/) 

100S  FORMAT  (2X,  12,  ',  •,  12,11  (3X,F8.5M 


1020 

1021 

1023 

1026 


UX;  lit- 

FORMAT (4F10.5) 

FORMAT (2X, 12, BLADE') 

FCRMAT(1X,I2,' .  REFLECT  ION ',/ I 
FORMAT! 2F10.3.I3) 

ENC 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX>>XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  PROF IL (LG4 . T1 ,T2,N ) 

COMMON/ SP/  XS<2,50)  ,Y$< 2,50) ,A (2, 50,4), R (2,50) 


READ(3, 
IFCL04. 
DC  8  J» 


9 

7 


2 

12 


52 


FFEPARATION  OF  THE  PRCF1L  -  SURFACES 

c?8l  1 >  SP 

1 2*0  *2 
N*NT 
T»T1 

IF( J.EQ.2)  T«T2 
I F( LC4. NE.O )  GOTO  12 
DC  9  K-1.4 
P*(K-1 ) ♦5+1 

REAC( 3, 1C01 )  XS(J,M),XS(J,M+1)  ,XS(w,P+2) ,XS ( J ,P  +  3) , XS ( J ,M+4) 
READ (3, 1001)  YS(J,M).YSU,M+l),YS(J,P+2> ,YS(J,P+3) ,YS(J,P+4) 
IF(YS(J,P+4  I.EQ.IOO.)  GOTO  7 
CONTINUE 
CONTINUE 
00  2  LL*1 ,N 

mmv 

0X«1.0/(N-1) 

Il-i-l)P*(J+l) 

DC  20  K*1,N 
XS(J,K)»(K-l)*0X-0.25 
YS(  J,K)«I1*4.*T*XS(J,KM  (l.-XS(  J,KI  ) 

GIvlNTPCINTwfsEART,THE  SLRFACES  SKtLD  ALREADY  eE 
CONTINUE 

INTERPOLATION  THRQUGP  CLdC  SPLINES 

I F  (T.NE  .0.  .OR.  LC4.EC.0)  GOTO  51 
DC  52  I*1,N 
A  (J, 1 , 1  )*0. 


j,LL)  / 


>p 

»p 


135 


51 


10 

C 

C 

C 


25 

C 

g 


35 


30 

g 

C 


40 

53 

11 


49 


5 

6 


13 

8 


A  ( J* I • 3 ) -XS l J , 1  ) 

A ( Jf I  ,4)*YS(J,I  ) 

MATRIX  CF  CCEFFIC IENTS  AND  RIGHT-FANC  SIOES 


K-N-2 

CC  25  I  -1 »  K 
A(J»I»l)*A(JfI*,lf2)-A<JfI»3) 
A(J,I,3)»A( J, 1*2,3 )-A(J,I+ 

* 

F3.*(A(  J,I*l 
CCNTINUE 
A  < J, 1,  1  J-0.0 
AIJ,N-2,3)*0.0 

TFE  STEP  OF  GAUSS 


K«N-- 


I  J»I*1»3)-AIJ,J ,31 
( J.I*2,3)-A(J, 1+1,3) 

.  *  ( A(  J ,  I,1)-*A(J,I,3)  ) 
.*UtJ,l*2,4»-A(J,I*l,4))/A(J,I,3)- 
l ,4)— At  J, I,AI)/A(J,I,1) 


1-2, L 


DC  30  I»1,K 
OC  35  M-3,4 

A(J»I,M)-A(J,I»M)*A(J»I*1»1)/A(J»I»2) 

A  ( J , 1 ,2 )-A ( J  » 1*1 , 1 1 
A(J,I  +  l,2)*A(J,I+lf2)‘~A(*,I,3) 

AIJ»I*1»4)-A(J,I*1,4I— A<J»I»4) 

SCLUTION 

A(J, 1,11-0. 

UM'-lllU.O 

bFd 

K-N-I 
M-K*l 

A(J^M,n«(A(J,K,4}-A(  J,K,3)*A(  J,M-»1,1)  )/A(J,K,2) 

OC  11  M-1,N 
R  IJ,M l*A ( J,M,1 ) 

IFUZ.EQ.l)  GOTO  8 
KV-N-1 

DC  49  K-l ,KV 
A ( J, K» 1 ) -YS ( J  »K) 

A  (J,K ,  3  )*  F(J.K> 

H-XS( J.K*1 )-XS(J,K) 

A(J,K,2)»< YS( J,K*1)-YSIJ,K))/H-F*  (F  (J,K+li+2.*R (J, K))/3 
A<J,K,4  )»< P(J,K  +  1»-R( J,K))/(3.*K > 

DX-1./49. 

OC  4  M-1.50 
X-OX* ( M— 1 ) 

OC  5  K— 2 ,50 
I -K-l 

IF(XS(J,K).GE.XI  GOTO  6 

CCNTINUE 

H-X— X  S ( J ,  I ) 

Y»A(J, I,1)+A(J, I,2»*H  +  A<J,I,3)*H*t-*A(J, I,4)*h*H*F 

R(J,Mj*X 

YS(J,M>»Y 

CCNTINUE 

IZ-1 

N-50 

DC  13  1-1,50 
XS(J,I)«R(J,I) 

GCTO  3 
CCNTINUE 

IF( IKP.EQ.O )  GOTO  17 
OC  15  N-l.N 

WRITE (6, 1002)  XS( 1  ,M )  ,  Y  S  ( 1 ,  M)  »XS(2,M)»YS(2»N) 

N-N-l 

FCRMAT ( 2F10.5 ,212  ) 


* 


i 


001  FORMAT ( 5F1Q.5) 

002  FCRMAT(5X,4(E12.5,2XM 

RETURN 
END 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SUBROUTINE  FIND t KV ♦ I M , I e ,IR , XS , YS » P »N ) 

CCMPLEX*8  l.v.psi ,g,oycxl 

CCMPLEX*8  AI t  El 

REAL*4  X,Y,AL,XS, YS,P,X9 

CCMM0N/8C/  T1,T2,T,B,CYCX,D2YDX2,CYCXU,AI,EI,IY,IBACK,IE 
COMMON  V (2 ,3, 50,20) , X ( 2 , 3 1 50. 20 ) , F ( 2.50 ) , U ( 2, 3 , 50 , 2C J , 
FPSI(2,3,50,20),G(2,3,5G,20) ,  AL ( 2 , 2 , 50  ,20 )  ,Y  (2  ,3 , 50 , 20  > , 
FQ(2,50),CX(2),1N(2,50),IN2(2,50) 

FINO  LOOKS  FOR  THE  MESHINDEX,RESPCNSIBEL  FOR 
TFE  POINT  XSjYS 

NX7»10000*XS 

NY7*10000*YS 

10*1 


1004 


IF(IR.EC.l)  GOTO 
C=IR- 1 

IFUB.EC.2)  IC*1 
I F( I B«  EQ. 1 )  IC*2 
l=(-l)*MIC+l) 
IF(IE.EG.l)  GOTO 
KK*0 

IFU.EQ.2I  IKK*  1 
1 F ( IKK* EC* 1 )  WRI1 


MRITE(6t 1004) 


FORMAT) IX, 'FIND-ENTRY' ) 
KA*0 
11=1 
L  2*1 
I  K*21 

IF(lKK.EQ.l)  WRITE(6, 1003) 

OC  22  I 2*L 1,20 

L3*I2+L2 

CALL  SWITCH(L3,I2,P,N,IC) 

IfTikK.EC.1)  WRITE (6 » 1003 ) 
IFIIC.EQ.l  .ANO.  L3.GE.KV) 
“■  .AND.  L3.GT.19) 


IFItC.EQ.l 
I F ( IC • EG  .2 
Jl*M+l 
J2=N+1 


IK»M,N,NX7»NY7»NX9,NY9 


IK^M,N^NX8,NY8,NX9,NY9 
GOTO  12 


J2*N+1 
KP*J1-J2 
I  K*24 

IF(IKK.EQ.l)  WR ITE( 6 , 10C3 )  IK,P 
IFUC.EC.2)  KM*J2-J1 
N  X8*100G0*X ( IC » 10  ,P,N) 
NX9*10000*X (IC,ID,J1,J2) 
NY8»10000*Y(IC,ID,P,N) 

IF(NX7.GE.NX8  .ANO.  NX7.LT.NX9) 
F(X9.GE.l.  .ANO.  KM.EQ.l  .AND. 
F ( IC  .EC. 2  .ANO.  KA.EC.J2)  KA*J 
F(  C.EC.l  .AND.  KA.NE.J2)  GOTO 
IFHC.E0.2  .AND.  KA.NE.J1)  GOTO 
IFIIC.EC. 1)  J1*J1+1 
I F ( IC . EC .2 )  J2* J2+1 
I F ( J 1 . EC .KV  .OR.  J2.EQ.20)  GOTO 


IK,M,N,NX8,NY8,NX9,NY9 


IF(IC.EC.l) 
I F ( IC . EC .2 ) 
I F ( J 1 . EC .KV 
GOTO  24 

I F( IC. EC.2 ) 


AND.  IR 
KA*  J 1 
GOTO  22 
GOTO  22 


GOTO 

IR.E 


23 

G.l ) 


GOTO 


I F (NY7 . LT .NY8 I  GOTO  1 
IF(N.EC.l)  GOTO  13 
L2*L2+1 
L1*N-1 


J?CJ1 


GOTO 


IK,M,N,NX8,NY8,NX9,NY9 


137 


non 


28 


3 

8 


GCTO  21 
I  K-28 

IF(IKK.EC.l)  MRITE(6tlGC31  IK ♦ M ,N ,NX8 ,NY 6  ,NX9 , NY9 

NY8-10000*Y(IC,  I0,M» J 2  I 

I F( NY7.GT . NYS)  GOTO  1 

IF(M.EQ.l)  GOTO  13 

L2-L2+1 

L  1=M- 1 

GCTO  21 

I  K— 1 

IF(IKK.EQ.I)  WRITE(6» 1002)  IK»M»N»NX8»NY8»MX9» NY9 

IF(M.GE.KV)  GOTO  13 

J-M+l 

K-N+l 

NX8-10000*X(ICtI0,MtN) 

NY8-10000*Y(ICt ID . MtN) 

IFJNX7 .EQ.NX8  .AND.  NY7.EQ.NY8>  GCTC  14 
IF(IR.GT.l)  GOTO  29 

orientation  IN  THE  FIELC  OVER  THE  UPPER  ELADE 

IF( NX7.NE.NX8)  GOTO  5 
IF(NY7.C-T.NY8  .AND.  N.EC.l)  GOTO  12 
IF(NY7.GT.NY8>  N-N-l 
IF(NY7.LT.NY8I  M-M-l 
GCTO  1 
I  K«5 

IF(IKK.EQ.l)  WRITE16, 1CC2)  IK»MfN»NX8tNY8»NX9tNY9 
I  -M+2 

IF(I.GT.KV)  GOTO  7 
NX8»10000*X (ICt ID.JtN) 

NX9- 10000*X (ICtlOyltK) 

NY8»10000*Y(ICtID,J,N) 

NY9-10000*Y (ICflD.I.K) 

IF(NX8.EQ.NX9  .ANO.  NY8.EQ.NY9)  GCTC  6 
GCTO  7 
I  K-6 

I F  C IKK. EC. 1 )  WRI TE  (6 . 1002 )  IK#H.N.KX8»NY8»KX9»NY9 
01*(Y(ICfID,J,N>-Y(lC»ICfMfN) ) / ( X  (IC t f D t J  ,N  )-X ( IC , IC , K  ,M  ) 
02»(Y(IC,ID.M,K)-Y(ICtICtM,N> >/(X(ICt I0» M tK )-X ( IC *  I C . M, N ) ) 

D 12-( Y$— Y (ICtlDtMtN) ) / ( X <-X( I C , 10  fN ) ) 
D5=(Y(IC»ID»J»K)-YS)/(X(ICtI0.J»K l-XS » 

02-(Y(ICtID,J,K)-Y(ICtICfM,K) )/CX(ICtIOt JfK>-X(ICt ICtM,K) ) 

I F ( D12 . LE. 01 . ANO. 012 .GE .02 .ANO .05 .GE.01. ANC.05.LT.C2)  GCTO  14 

N-N+l 

GCTO  1 

IK-7 

IF(IKK.EQ.l)  WRITE(6» 1002)  IK . Mt N  ,NX8 , NY8 ,NX9 ,NY9 
01»<Y(IC,ID,JtN)-Y(ICtIC,M,N) J/(X(ICtIDtJtN>-X(ICt IC,N,N> ) 
IF(K.EQ.M)  GOTO  4 

D2-(Y(IC,ID,M,K)-YtICf ICtM,N) )/(X(ICt ID,M ,K )-X ( ICt IC, M, N) ) 

I F(K.EQ.M)  02*0. 

05-(Y(IC,IC,J.K)-Y(IC,  ICtM,N) )/(X(ICt 10, J,K)-X( ICt ID,M,N) ) 

0  12*( YS“Y( ICfIDtMfN) ) / (XS-X ( IC , IC  ,N,N) ) 

IF1012.LE.01  .AND.  012.GE.D2  .ANO.  XS.GT. X (IC t IC t P t N ))  GCTC  8 
NX8*100GG*X (ICflD.MfN) 

I F(NX7 .GT.NX8)  GOTO  2 

IF(N.EC.l)  GOTO  13 

N-N-l 

M*M— 1 

GCTO  3 

I F(012.GT.01  .AND.  N.EC.l)  GOTC  12 
IK-2 

IF(IKK.EC.l)  MR ITE ( 6  1 100  2  )  IK,M,N  ,NXe,NY8 ,NX9,NY9 


I F( 01 2 • GT.D 1)  N-N-l 
IF(D12.LT .02)  M-M-l 
I  BACK-I 8ACK+1 


IF?AL(ICtIC,M,N).NE.AL(lC,IDtJ,N) )  GCTO  12 
GCTO  1 
IK-8 


NX8-10000*X(ICt IOtJtK) 

rF?x{Ko?^:r»ICMAi?^^i 


003)  IK,M,NtNX8,NY6,NX9,NY9 
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12 

15 

10 

17 


16 


9 


13 

C 

C 

C 

29 


30 


33 


I F  (NX7 « 


.  1.NX8  .ANO.  NY7.EQ.NY8I  GCTC  12 

INX7.KE.NX8)  GOTO  15 
[NY7.GT.NY8)  M*M+1 
IF(NY7.LT.NY8»  N*N+1 
GOTO  1 
I  K*12 

IF(IKK.EC.l)  WRITE<6, 10C2)  IK , M,N  ,NX8 ,NY8 ,NX9  ,NYS 

M*J 

N*K 

GCTO  14 
I  K=1 5 

IF(IKK.EQ.l)  WRITE! 6  * 1CC3 )  I K,  V , N  ,M8 , NY6  ,NX9  ,NY9 
IF(NX7.GE.NX8 )  GOTO  16 
IF(K.EQ.M)  GOTO  10 

03*  t Y ( IC.IOt J,K)-Y<IC,IC,M,K))/(>(IC,IO,J,K)-X(IC,ID,H,K) J 
IF(K.EQ.M)  03*0. 

04*  !Y(IC*ID»J»K)-Y(IC.IC»JfNJ I / ( >( IC , I C , J , K »-X ( IC  ,  ID , J ,N>  ) 
034*  (Y  ( IC,  ID, J»K l-YS  )/ (X(IC, IC,J,K)-XS> 

I F ( 03 • GE.034  .AND.  C4.LE.034)  GCTC  17 
GCTO  16 

IF(04.EQ.034J  M*M+1 
I F (03. EQ.O.  .AND.  034. EC. 0.)  G0TC14 
I F ( 03 • EG .D34)  N-N+l 


IK,K,N,NX8,NY8  ,NX9  ,NY9 
IK , M , N  ,N>8,NY8  » KX9 , NY9 

IK»M,N,NX€»NY£»NX9,NY9 


IK  ,M  ,N  ,NX8,KY8,M9,KY9 


I  K=1 7 

IF(IKK.EQ.l)  WRITE(6 , 1GC3) 

GCTO  14 
I  K  =  1 6 

IF(IKK.EC.l)  WRITE (6 , 1003 ) 

IF(D12.GT.D5J  M*M+1 
IF(012.LT.05)  N*N+1 
I F( D12. EQ.05 )  GOTO  9 
GCTO  1 
M=M+1 
I  K*9 

I F ( IKK. EC. 1 )  WRITE (6 , 1003 ) 

N*N+1 
GCTO  1 
I  E*1 
GCTO  19 

ORIENTATION  IN  THE  PASSAGE 
I  K*29 

IF(IKK.EC.l)  WRI TE (6 ,1003 1 
L1*M+1 
L2=N 
L3*M 
L4*N+1 

IF(IC.NE.2»  GOTO  30 

L  1*M 

L2*N+1 

L3*M+1 

L4*N 

L5*M+1 

Lt*N+l 

NX8*10000*X(IC, I0,L5,L6 ) 

NX9*10000*X(IC,I0,L1,L2) 

NY8*10000*Y  < IC, ID ,L5 , L6 ) 

NY9»10000*Y(IC, I0,L1,L2) 

IF(NX7.LT.NX8  .ANO.  NY7.EQ.NY8)  GCTC  14 
I F( NX7  .EC.NX9  .ANO.  NY7.E0.NY9)  GCTC  36 
I F (NX7 . GT.NX9 )  GOTO  32 

Dl*n*{Y(IC,I0,Ll,L2)-Y(IC,ID,W,N))/(X<IC,IC,LltL2)-X(IC,I0,*',NH 
1 F(L3.eC.L4)  GOTO  33 

02*U*iY(  ICIIDIL3,L4»-v  (IC,ID,H,N) )  /  ( X  ( IC  ,  IC ,L3  ,L4  )-X ( IC,  ID,M,N)  I 


D12*Il*tY(ICtl0»M,N)-YS)/(X(IC,I0»F»N)-XS) 
I F (012. LE.01  .ANO.  C12.GE.02)  GCTC  14 
NY8»100CC*Y(IC, ID , M ,N ) 

IF(NY7.GT.NY8»  N»N-1 
IF(NY7.LT.NY8)  M«H-1 
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32 


D3*(y}iC,IC,L5,L6)-Y(  IC,  10, L 1,  L 2  )  ) /  (X(  I C  t  ID  ,L  5  ,L6) -X  IC  » ID  ,L1  ,L2 1 
02*03*11 
I  K=32 

IF(IKK.EC.l)  WRITE(6  » 10G2)  IK ,  M ,  N  ,NX8  ,N  Y8  ,N  X9  ,  NY9 
IF(L3.EC.L4I  GOTO  34 

D4*(Y(IC,ID,L5,L6)-Y< IC ,  ID  ,L3 ,  L4 1)  /  ( X  ( I  C  ,  I C  ,L5  ,L6 1 -X  ( IC  ,IC,L3,L4) 
04*04*11 

IFU3.EC.L4)  04=0. 

D24=I1*(YS-Y( IC»ID»L5»L6))/(XS-X( IC,ID,L5,L6)J 
IF(034.GT.C3  .AND.  D34.LT.D4)  GCTC  14 
NY8=100CC*Y(IC»ID,L5,L6) 

IF(NY7 .GT.NY8)  M=M+1 

I F( NY7. LT.NY8 I  N=N+1 

GCTO  1 

M=L5 

N*L6 

I  K=31 

IF(lKK.EC.l)  WRITEI6 , 1003  )  IK , M , N  ,NX8 ,N Y6 , NX9, NY9 

GCTO  14 

M=L3 

N=L4 

I  K  =  3  5 

IF(IKK.EC.l)  WRITE(6,1CC2»  IK,M,N,NX8»NY8,NX9,NYS 
I  K*1 4 

IF(IKK.EQ.1»  WRITE ( 6  » 1CC3 )  I K , ¥ , N  ,  NX8 , NY  8  ,NX9 ,NY9 

CCNTROL  -  STEP 

K 1  *M  ♦  1 
K2*N 
K2*M 
K4*N+1 

I F ( IC.NE.2 )  GOTO  35 

K  1*M 

K2*N*1 

K2*M+1 

K4*N 

J1*M+1 

J2*N+1 

01  *99. 

02  *99. 

03  *99. 

04  *99. 

012*99. 

024*99. 

NX8»10000*X(IC,ID,M.N) 

NX9*1000C*X(IC»ID»J1»J2) 

NY8»1QQQQ*Y (IC,IO,M,N) 

NY9*10000*Y (IC,  ID. Jl,  J2 ) 

I F( NX7. EC. N X8  .AND.  NY7 •  NE.NY8 )  GCTC  18 
IF(NX7.EQ.NX8  .AND.  NY7.EQ.NY8)  GCTO  19 
GCTO  20 

WRITE ( 6, 1000 )  M,N,NX7,NY7,NX8,NY8 ,01 ,02 , C3 , C4 , C12 , C34 
01*Il*^Y(IC(,ID{jKl,K2)-Y(IC,ID,M,N)l/(X(IC,IC,Kl,K2  )-X  ( IC,  ID,  M  ,N  )) 


1000 
1003 
100  5 
19 


02*I1*(Y(IC,I0,K3,K4)-Y(IC,ID,M,NI)/(X(IC,IC,K2,K4)-X(IC,IC,M,N)  ) 
I F( K4.EQ.K 3 »  02*0. 

012* Il*( Y$— Y ( IC.IC,M,N) )/(XS— X( IC,IO,M,N) ) 

IF(K4.EC.K3»  GOTO  25 

02»I1*(Y(IC,I0,J1,J2)-Y(IC,ID,K3,C4)) 

D2*03/(X(IC,ID, J1,J2I-X(IC,ID,K3,K4 I I 
I F( K4. EC.K3)  03*0. 

04*I1*(Y(IC,ID, Jl,J2)-Y(IC,ID,Kl ,K2> ) 

04*04/ (X(IC,I0,J1 ,J2 )-X( IC , 10 , K1 , K2 I ) 

024*1 1*(Y( IC, ID, Jl, J2 )-YS)/(X( IC.lC.Jl, J2I-XS ) 

I F(D1 .LT .012  .OR.  02.GT.012)  GOTO  18 

j  F(03 .LT.D34  .OR.  D4.GT.C34)  GOTC  ie 

I F(NX7 • LT.NX8  .OR.  NX7.GE.NX9)  GCTC  18 

FCRMAT (  IX,  ' FIND  s  • ,  I  2  .  • , ' ,  1 2, 4(  IX ,  I  8  > ,  1C  ( 1 X,  F 8. 3 )  ) 

FORMAT (IX, 313, 4 (2X, 18)1 
FCRMAT( IX, 'FIND-EXIT' ) 

IFdKK.6C.il  WRITE(6,  1CC5 ) 


140 


> 


RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SUBROUTINE  BOUND ( U04 , IB ,IR ,1 M, I , X ) 

CCMPUEX*e  DYDXU 
CCMPUEX*8  AI ,  El 
REAU*4  X 

COMMON/ BC/  T1»T2»T.8»CYCX»02YDX2»CYCXU,AI»EI 
CCMMON/SP/  XS(2,50) ,YS<2,50) ,  A <  2  ♦  50 ,4  >  ,  R  <2 , 50  > 

C  STEADY  eCUNCERY  CONDITIONS  AUONC-  eCCY 


XXXXXXXXX.XXXXXXXXX 

xxxxxxxxxxxxxxxxxx 


T2*T1 

I P ( I • EQ  *2 )  T3*T2 

IF( (I*IM).SQ.l  .AND.  IR.GT.l)  GOTO  2 
I F( U04 .EC . 1 )  GOTO  3 
DC  5  K*2,50 
J  *K—  1 

IF(XS (I ,K) .GE.X)  GOTO  6 

5  CONTINUE 

6  H=X— XS ( I » J ) 

DY0X*A(I,J,2)+2.*A<  I,J,2)*H+3.*A{  I,  J,4)*H*H 
D2YDX2*2.*A(I ,J,3)+6.*ACI, J,4)*H 
GOTO  1 

3  Il*<-1 )**(I+1 ) 

DYDX*I 1*4.*T3*< l.-2.*X) 

D2YDX2*-I1*8.*T3 
GOTO  1 

2  DYDX=0. 

D2YDX2*0 . 

1  RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  SHOCK!  KV, U0<  ,£M , I R , I B , N , N , XO , N2 , N2 , 
CCMPUEX48  UjVtPSItGtOYCXU 
CCMPUEX*8  A  I »tl 

REAU*4  X,Y,AU,D1,D3,D,X1,X2,X3,X4,XS,Y1,Y2,Y3, 
REAU*4  TX,TY,XX,YY,XP,YF,AUD,D2,P ,  C3 , XO, XT ,  AUZ 
CCMMON/BA/  AUO,AM,AUO,C1,AK.I ,IM ,TX.TY, IW,¥A,I 


CCMMON/BA/  AUO,AM,AUO,C1,AK.I ,I¥  , TX.TY, I W , ¥ A, I 
COMMON/ BC/  T1,T2,T.B,DYCX,D2YCX2,CYCXU,AI  ,EI,I 
COMMON  V( 2, 3.50, 20) ,X ( 2 , 3.50 , 20 ) , F ( 2 . 50 ) ,U ( 2, 3 
FPSI(2*3,50,20).G(2»315CI20) » AU ( 2 , 3 , 50 ,20 ) ,Y (2 , 
FQ<2,50) »CX(2)«lN(2«50)f 1N2I2.50) 


XXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxx 

03) 

Y4.Y5  » Y6  t  X6 
» DX1 

C  »ET  »XX ,YY 
l , IB ACK  , I E 


ItlCI  ,  A  A  ,  T  T 

1  *  I  BACK  ,  I E 
1,50,20 * 

3  » 50, 20)  t 


COMPUTATION  OF 


FIEUC  NEAR  BEHIND 


SHOCK 


GOTO 


IKK*0 

IFCI.CC.2)  IKK*1 
IF(IKK.EC.l)  WRI TE (6 , 1003) 

MAX*1 

IC*1 

mu  •EC.l )  GOTO  19 
I  C*I  R-l 

IF(IB.EQ.l)  IC*2 
IFCIB.EC.2)  IC*1 
DX1*DX(I) 

I F (T. EQ .0.  .OR.  IC.EC.O)  GOTO  17 
GOTO  21 

0*EM*2  «*SQRT ( AUO ) 

I F( IB.EQ. 2  .AND.  T.EQ.O.  .AND.  I. EC.l)  0*1.05 
OX  1*0/ C  MA-1 ) 

{ fT^KK . EQ. 1 )  WRITE<6, 1000)  M ,N , I E  ,1 K ,D, 0X1 ,X0  , 

J  *M—  1 

K*N 

U*M 

IFd.NE.ZI  GOTO  5 

J*M 

K*N-1 

U*N 

CAUU  CCNSTl(UC4,rR,ie,AL2,C3,X0) 


GOTO 


T.EQ.O.  .AND.  I. EC.l)  0*1.05 


TX,TY 


J 


CALL  BCUNDCL04,IB,IR,IM,  I,XOI 
AL(I8yIRyM,N)=(AL  Z-C3*CYCX* I1)**(2./3.I 
IFCL.NE.il  GOTO  3 

WRITE (6, 10011  M,NyAL(ICyIDyM2yN2lyM2,N2 

GOTO  6 

IK=3 

IFCIKK.EC.il  WRITE  C6 » 1000 1  M2  ,N2 »  IR ,  IK  ,  CYCX , XO, AL ( I E» IR »M ,N I 

01*I1/SCPTC ALCIB,IR,M,NI  I 

XP=XO+XX 

YP»YY 

X5*XC IB,IR, J,K» 

Y5aY  CIByIRyJyK) 

I  K»9 

IFCIKK.EC.il  WR ITE ( 6.  10CC I  J , K, 1 1 ,  IK  ,01 y XP  ,  YP , XS ,Y 5 

I FCIE.EC.l  .OR.  M2.GE.KVl  GOTO  16 

L  1*M2+1 

L  2=N2 

L2=M2+1 

L4=N2+1 

IFCI.NE.2I  GOTO  7 
L  1*M2 
L2*N2+1 
CONTINUE 

IFCIR.EO.il  GOTO  22 

L1=M2 

L2=N2+1 

IFCIC.NE.21  GOTO  22 

L1*M2+1 

L2*N2 

Xl*X(ICyI0,"2,N2l 
Y1»YC IC,  10, P2,N2 I 
X2=XC IC , IOyLl ,L2 I 

Y2*YC IC,ID,L3,L4I 
IZ=0 
XT=XO 
I  K=22 

IFCIKK.EC.1I  WRITEC6, 10C01  M2  ,N2  ,  IZ  ,IK,  X5 ,  Y5,  X 1,  Y 1,  X2  ,Y2 
D2=SQRTCAL(  IC,  ID,  M2, N2  I  l+SQRT  CAL  CIB,IR,J,K  I) 

D2*2. *11/02 

IFCT.NE.O.  .ANO.  IQ.NE.OI  GOTO  2 
X4=( L-2 )*DX1/2.*TX 
Y4»D2*C  X4-TX1+TY 
GCTO  1 

X4«C01*XP-D2*X5*Y5-YP) /CC1-02I 
Y4*C  X4-XP  >*C1+Y  P 

IfTIkk.EC.1I  WRITEC6,10CO)  IC,ID,IE,IK,X4,Y4,XF,XX,C2 

IFCI.EQ.l  .ANC.  IR.GT.ll  GOTO  20 

IFCY4.LE.0.C001  .AND.  Y4.GE.0.I  GCTC  8 

IFCY4.GT.0.  .ANO.  IZ.EQ.CI  GOTO  12 

IFCT.NE.O.I  GOTO  4 

Y4»0. 

X4—EM/02+TX 
GCTO  8 
CONTINUE 

IFCY4.LE.EM  .ANO.  Y4.GE. C0.999*EM 1 1  GOTO  8 
IFCY4.LT.EM  .AND.  IZ.EC.Ol  GOTO  12 
IFCT.NE.O.  .AND.  IQ.NE.C)  GOTO  4 
Y4-EM 

X4*TX+EM/D2 
GCTO  8 

X5*XC IByIR, JyKI 

Y5-YC IB,IR, J.KI 

X6*C  EM*C  2-1 81 -Y 51/02* X5 

XT»CXP-X4l*EM/( Il*Y4+EM*CIB-l) I+X6-XX 

IFTtKK.EC.il  WRITEC6, 10001  IC , I C ,  IE  ,  IK , X6, XT, D 1, X5 , Y5 
CALL  C0N<T1CL04,IR.IB.ALZ,C3,XT} 

CALL  BOUND ( L04, IBylRflMylyXTI 
ALl|B,IR,MTNl»CALZ-C3*0YCX*Ill**C2./3.» 

0  1«|  1/SCRTl  ALCIBylRyMyM  I 


CALL  C0NST1 
CALL  BOUNOCI 


:,IK,X6,XT,DlyX5y  Y5 
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XP*XT  +XX 

IFCIZ.LT. B0»  GOTO  14 

IFCIKK.EC.l)  WRI TE (6 1 10CG)  M  ,N  ,  I Z  ,  I E  ,X4  , Y4  .  X5  ,  Y5 
X4«X6 

Y4»EM*C2-Ifi) 

AL(IBtIRfM»N) -ALC 18  » I R  *  J  »K) 

GCTO  8 

CALL  FIND(KVfIH,IB»IRfX4fY4fMlfNl) 

IF*\kk.EC.1)  WRITEC6t 1000)  Ml tN 1 1  IE » IK , X4, Y4 
F*X(IC»  ID»M1»N1)»Y  (ICtIDfMfNI) 

IF(IE.EC.l)  WRI  TE  (6 « 1002  )  M,  N,M1 ,  M  tX4,  Y4  ,  X  ( IC  »  ID ,  Ml  ,N1 ) 

F.YCIC  ,10, Ml  ,N1) 

IFCM1.EQ.M2  .ANO.  N1.EC.N2  .AND.  1E.EQ.0)  GCTC  8 

IFCT.NE.O.  .ANO.  IQ.NE.C)  GOTO  15 

IFCIE.EC.l)  GOTO  16 

M2-M1 

N2*N1 

GCTO  8 

X6»C Y2-Y5) /02+X5 
I FCX6.GE.X2  )  GOTO  10 
C2*C  Y2-Y1) /C  X2-X1 1 
X5»CY1-Y5+02*X5-D3*X1)/CC2-D3) 

Y5»D3*CX5-X1)+Y1 
I  K*1 5 

IFCIKK.EC.l )  WRITEC6*  1000)  M1,N1 , IS  ,IK  ,X5 , Y5» X6t03 

IFCIC.EC.2)  GOTO  23 

N2»N2-1 

IFCIR.GT.l )  GOTO  26 
IFCN2.EQ.0)  GOTO  16 

IFCALCICtI0,M2»N2) .NE .At C IC » 1 0 ♦ F2-1 »N2)  •  AKC.  IR.EC.l)  GOTO  16 

IFCI.NE.2)  GOTO  9 

M2*M2-1 

N2-N2+1 

GCTO  9 

N2-N2-1 

GCTO  9 

D2*C  Y3-Y2) / CX3-X2 ) 

X5*( Y  2-Y5+D  2*X5-D3*X2 ) / CC2-03 ) 

Y5-03*(X5-X2)+Y2 

IK-10 

IFCIKK.EQ.l)  WRITEC6, 10CQ)  Ml  ,N1 , IE , IK, X5 ,Y5t Xfi,C3 

IFCIC.EC.2)  GOTO  24 

M2*M2+l 

IFCIR.GT.l)  GOTO  25 

IFCM2.EQ.KV)  GOTO  16 

IFCI.NE.2)  GCTO  9 

N2-N2+1 

M2-M2-1 

GCTO  9 

M2-M2+1 

GCTO  9 

X  CIB» IR» MfN )-X4 

IHWEiIMfiH  •  ANO.  Y4.GE.0.  • AKC.  IB. EC. 2)  Y C 2 ,  IR , F, K )*0 . 
IFCY4.LE.EM  .ANO.  Y4. GE . C0.999*EM  )  .ANO.  IB.EQ.l)  Y ( 1 , 1 R,M ,N ) *EM 

IfTikK.EQ.1)  WRITEC6, 1000)  M, N , IE ,1 K fX4 , Y4, XI , Y1 
GCTO  11 

XCIB,IR,M»N)«TX 
YCIB,IR»M,N)»TY 
GCTO  12 
I  E*1 

D2-S0RTCALC IBtIR.JtK) )+SQRTCALCIB,IR,M,N)) 
D2«4.*il/C2.*$QRTCAL0)+C2) 

IFCT.NE.O.  .ANO.  IQ.NE.C)  GOTO  18 
XCIB,IRtM,N)*CL-2)*CXl/I.+TX 
YCIB,IR,M»N)«02*CXCIBt I F ,M,N ) -TX ) +TY 

XiIB,lR,M,N)«C01*XP-02*X5+Y5-YP)/CCl-02) 

YCIB,IRtMtN)»(XCIB»IRtF.M-XP)*01*YF 


COMPUTATION  OF 
FLOW  FIELD 


THE  AOCITIONAL  POINTS  FOR  THE  UNSTEACY 
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12 

1000 


1001 

1002 

1003 


03*1 ./SCRT(  Alt  18, IR,M,N> ) 

D4*1./SCRT( AL(IB. IR, J,Kll 

P(I,L)*(D4*X(IB,IR,J,K)+C3*XP+(Y(IB,IR, J,K  )-YF)*Il)/(D3+D4) 
Q(t,L)*C3*(P(I,L)“XPM  1 1+YP 
IF(T.EQ.O.)  P (I ,L)*X(IB,IR,J,K) 

IF(L.NE.3)  GOTO  12 
P(I,U*XP 

ScJflNU?* 

FORMAT (1X,4I4,2X,6(2X,F8.3) ) 

IN2( 1. L )*M2 

FCRMAt  ^  lX^Jf  2  » '  » •  »  12 » '  LAMBDA*  '.FS.7,'  MESH:  ',I2,',',I2) 
FCRMAT( IX, • SHOCK  RUNS  OUT:  • . 2 ( 12  ,  •  , * ,12 ,2X  )  , 4 ( F8. 3  ,2X ) ) 


1003  FORMAT (IX, 'SHOCK  -  ENTRY') 

RETURN 

EKO 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  RAN0(L04, IB , IR , M,N ,C1 ) 

CCMPLEX+8  L.V.PSI ,G,CYCXU 
CCMPLEX*8  At ,cl 

REAL*4  TX,TY,XX,YY,X,Y,AL,F,0,X2,X1,P,ALC,C1,A,Y1,FS,ALZ 
CCMMON/BA/  AL0,AM,AL0,C3,AK,I,IM,TX,TY, IW.MA, IC,ET,XX,YY 
CCMMON/BC/  T1,T2,T,B,0YCX,D2Y0X2,CY0XU.AI ,EI,I1 
COMMON  V (2, 3, 50, 20)  ,X(2,3,50, 20 > ,P< 2, 50 ) ,U( 2,  3,50,20  , 

FP SI  (2, 3, 50, 20) »G( 2,3,50,20) , AL ( 2 , 3 , 50 ,20 ) , Y  (2,3,50,20), 
FQ(2,50),0Xi2),lN(2,50),lN2(2,50) 

C  BOUNDER Y  STEP  OF  THE  STEAOY  FIELD  TO  THE  BCCY 


'(?R.< 


IF(IR.GT.l)  IK*  1 
IF(IK.EC.I)  WRITE (6 , 1003 ) 

A*-C1*I 1 

J1*M 

J2*N-1 

IF( I.NE.2)  GOTO  5 

J 1*M—  1 

J2*N 

X1*X(IB,IR,J1,J2)-XX 
Y1*Y(IB,IR, J1,J2)-YY 
X2*X1 

DC  11  KX*1 , 20 

CALL  CONST1(L04,IR,IB,ALZ,C1,X2) 

CALL  BOUND ( L04, IB,IR,IM,I,X2) 

I F( IK .EC.l )  WRI TE (6 , 1002 )  IB , I R ,M  ,N ,DYDX ,ALZ, XI ,Y1 
AL(IB,IP,M,N)*( ALZ+A*CYCX)**(2./3.) 

IF(T.EC.C.  .OR,  IQ.EQ.O)  GOTO  2 

IF(IK.EC.I)  WRITE (6,1002)  IB , I R ,M  ,N  ,OYD X  ,  A L (I  8 , 1 P , I 
FORMAT (IX, 414, 4( F10.3 ) ) 


1002 


tB,IR,M,N,DYDX,AL(I8,IP,M,N),Yl,C2YCX2 


lu-nttviirn'M  , J1,J2))+SQRT(AL(IB.IR,M,N)  )) 
FS»2.*I1/Y1-A*02YDX2/ (3.*AL(IB,IR,M,NI) 


0*F/FS 

X2-X2-D. 


I F (ABS ( C) .LE. 0.000001 )  GOTO  10 
CONTINUE 

WRITE ( 6 ,1000 )  M,N,0 

CALL  CONST! (L04,IR,IB,AIZ,C1,X< 


^F^K.ic.l)  ^Sr{tE  (6^  iooi  )  IB,IR,M,N, 
IF(IK.EC.I)  WRITE(6,  1004) 

AL (1 8 » IR » M»  N)*(  AL  4+A*C YCX l**(2. /3  • ) 
Y(!B,IR,M,N)*YY 
X ( IB, IR ,M,N ) *X2+XX 
GOTO  1 

Y(IB,IR,M.N)*YY 

D*-2.*I1/(SQRT(AL(IB,IR,J1,J2I t+SCRT 


CYCX , ALZ, X  2 ,D 


R,M,N)*X2+XX 


4  t  iio,iR,M,N) *YY 

D*-2.4Il/(SQRT(AL(IB,IR,Ji,J2) ) +SCRT( AL ( IB . IR , M ,N ) ) ) 

X (IB,IR »M»N )*X( IB.IR. J1.J2)-(Y( IB,IR, Jl, J2)-YYI/D 
1  I F < IK.EQ. 1 )  WRI TS (6 , lOOi  )  18,  I R ,M ,N ,X ( I B , IR ,M , h ) ,AL ( IB, IR , M, N ) 

1000  FORMAT! IX, 'RANO  :  • , 12,  • , ' , 1 2, •  C*  *,E1C.3I 
1003  FCRMAT ( IX , • RANO-ENTRY  :•) 


1004  FORMAT (IX,  •  RANO-ITERAT ICN-EX IT . •  ) 

RETURN 

EKO 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SUBROUTINE  GEN( IB  * IR, N  *N  *  I ) 

CCNPLE X*8  L»V,PSI *G*  CYtXU 

CCMPLSX+8  Alt  61 

REAL*4  X.Y, AL, 01,02, XI, P 

CCMMON/BC/  T1,T2,T,B*0YCX,D2YDX2,CY0XU,AI,EI,I1 
COMMON  V<2,3,  50 ,20 1  , X <  2 , 2 , 50, 20)  ,F( 2,501  ,L  (  2, 2 , 50 , 20  , 
FPSI(2*3*50«20)*G(2*3*50*20)*AL(2*2*50*20)*Y(2,3*50*2G)« 

FQ(2,50)  ,DX( 2) ,IN<2,50) ,IN2(2,50) 

C  GENERAL  STEP  OF  STEADY  FIELD 
C 

J  1*M 
J2*N-1 
K  1*M— 1 
K2*N 

IFtI.NE.2)  GOTO  5 

J 1*M— 1 

J  2=N 

K1*M 

K2*N— 1 

5  01*1 •/SQRT(#L(IB»IR,KljK2l  ) 

0**2. / ( SQRT ( AL(  IB  *  IR ,  J1 ,  J2 1)  ♦SORT  ( A  L II B  ♦  IR  ,  K1 ,  K2  ) »  ) 

X1*C2*X (IB,  IR* Jl* J2I+C1*X( IB,IR.K1,K2) 

Xl*Xl+(  Y(!B*Ih,J1  »J2)-Y(IB»Ik»K1»I<2I)*I1 
X(IB»IR»M»N)*X 1/(01+02) 

Y  ( IB*  IR,M,N)*Di*U*(X(  IB,IR,M,N)-X(  IB , IR  ,K1 ,K2 ) ) +Y ( IB , IR ,K 1 , K2 > 
AL(IB,IR»M,N)=AL( I8*IP,K1,K2) 

RETURN 

ENO 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  BOUNCU (IM, IR *  IB* X* I  * AK *L ) 

CCMPL£X*e  DYDXU 
CCMPL5X+8  AI,EI 
REAL*4  X 

CCMMON/BC/  T1,T2,T,B,0YCX,D2Y0X2,CYCXU,AI,EI,I1 
C  UNSTEADY  BOUNOERY  -  CCNCITIONS  ALONG  BOCY 


0Y0XU*0. 

IF((I*INI.EG.l  .ANC.  IR.GT.l)  GOTO  13 
IF(L.EO.l)  GOTO  11 


DYDXU*- 1 .-(X-B) *AK*A I 
GOTO  13 

11  DYDXU*  AI*AK 

13  RETURN 

ENO 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  RANDS ( KV ♦ I B * IR ,M,N , L , ANY ,N2 ♦ N2 ) 

COMPLEXES  U.V,PSi1G,0YCXU,D2*D6,PII,CL,0L,CV 
COMPLEXES  At, 61*612 
CCMPLEX*16  A*RI *ES 

REAL*4  X,Y  *  AL *  ANY  »S  .  AMN » AM3, AM4* AN  3  * AN4*  CO  *C1 *02 , 04*05*07* XE 
REAL* 4  P,ALD,CY,CZ,Z’  *  Z2  *W*AA1 *AA2*AA3«AA4* AA5  * API  *  AM 2*  AN 1 , AN 2 
REAL*4  TX,TY,XX,YY,0,  L.ANY2.B1 

CCMMON/BA/  ALO* AM  * ALC *  L » AK *  I  * IM* TX ,TY »IW»NA,IC.E7*XX,YY 
CCMMON/BC/  T1 ,T 2 ,T »B  «uYCX» D2YDX2 , CYOXU  » A I *EI , II , IB ACK , IE 
CCMMON/SCL/  A (4, 4) ,RI(4)*ES(4) 

£  COMPUTATION  OF  UNSTEADY  BOUNOERY- PROPERTIES  ALONG  SHOCK 


1001 


[  KK*0 

[F(IM.EQ.4  .AND.  IR.GT.il  1KK*1 

i&u» 


I  K*0 

IFdKK.EQ.lt  WRITE ( 6»  1CC2 )  M,  N  ,  I K  ,  X  <  1 3  ,  IR  ,  K  ,N  )  ,Y  (I  B  ,1 R ,  K ,  N  ) 


IF( IKK.EQ. 1 )  WRITE(6» 1C 
1002  FCRMAT (3l4,5(2X,E11.4t) 
IC-1 


IF(lR.EQ.l)  GOTO  1 
IC»IR-1 

IFdB.EG.lt  IC*2 

km: hi2'  ,e’1 

IFUC.EQ.2)  E I2=E I 
J  *M 

IFd.NE.2t  GOTO  5 

J  *N 

IE*0 

CALL  FIKD(KV»lM,IB.IR»X(lB,IR,M,N),YdB»IR»M,N),R2»N2t 

ALT*AL( IC,ID,M2.N2I 

DV*VdC,IC,M2,N21 

CU*U ( IC » ID, K2»N2 1 

IFdE.EQ.lt  ALT *ALO 

inil-ig:!.' 

I  K*5 

I F( IKK.EQ.l )  WRIT5(6,  1CC2)  IC, IC ,  IK  , X< IC , 10  ,M2  ,N21  , Y ( IC  ,ID , M2 ,N2 1 
CX*C-2. 

ANY»CALT-AM+1.I/(C*AM)+1. 

AKY2*ANY*ANY 

L1*M+1 

ws  .NE.2J  GOTO  22 

L  1*M 

L2*N+1 

IFtLl.GT.KV  .OR.  L2.GT.KV)  15*1 
IFdE.EC.lt  GOTO  23 
S*YdB,lR,Ll,L2l-YdB,IP,M,Nt 
S*S/(  X ( I B» I P.L1 ,L2)-XdE»IR»M,N)  J 
|*2»,’M  |/<  5QRT(  ALT  t  +  SQRT  (ALdB.IR.F.Ntt) 

CY* SINC  S)**2 
C2*C0S  C  $1**2 
ARN*1./(AM*CY*ANY2» 

ANl»2.*CY*ANY*SIN?2.*$t/C 

Af»2*2.*AK*CY*<l.*AMN)/C 


AN1»-2.*CY*ANY*(C0S(2.*S)+AMN)/C 
AK2—2.*AK*  SIN(S)*COS(Sl*<l.*AMNt/C 
AN3-AM4 

AK4«CY+CZ*CX*<1 .-2.*AMN/CX  t/C 
I F( J.GT .2)  GOTO  6 
XE*X(IB,IRtF.N»-XX 

vf^9,?RVI*?fi{iovDXUIe’Xe*,’AK’L  ’ 

Kl*M-fl 

K2-N 

IF(I.NE.2)  GOTO  4 

K1*M 

K2*N+l 

02*(SQRTjAL(IBf IR  , M,  N I t *$QRT ( AL (I E » IR ,K1, K2 1 1 1/2. 

oI*Ti/SCRT( 4L(I8,IR,Kl,K2)t 

IF(IKK.EG.I)  WRITE (6 * 10C2 1  M.N,IK,02,D1.S 
04»(YY-Y (IB.IR,K1,K2) t /C1*X ( I B,IR«K1.K2i 
X (IB  ,1 R  »M,N I *( 03*04— TX*TAN  ( S)  )  / 1 C2-TAN(  SI) 

I F  (T.EQ  .0.  .OR.  JQ.EQ.Ct  XdB.  IR  ,  F.N  t«TX 
YdB.FR.R.Nt-tXtiB.IR.K.NI-TxWTAKCSJ+YY 


I F (T.EQ .0.  .OR.  I 

Y(IB,Fr,R,N)*(X(I 

Jl-M-1 

J2*N 

LF»M 

IFd.NE.2t  GOTO  8 
J1*M 


146 


. 


c 

C4711 


1003 


J2-N-1 

LF»N 

CONTINUE 

IF(ALCie,IR,Jl,J2).LT.AL(IB,IR,M,M  .OR.  T.EQ.O.)  GCTC  12 

IF(IQ.EC.O)  GOTO  12 

J2»N-1 

IFCI. NE.2)  GOTO  12 
J1*M-1 
AMN»AM*CY 

AA1 »-2 •* (C-l • )*SIN( 2 .*S )*AMN*ANY2/C 

AA2«-4.*(C-1. )*AK*ANY*AFA/C 

AA5*( C-l  .  I*AM*( CX-2. *AMN*ANY2) /C 

AA3»4.*(C-1.I*ANY*AMN/C*AA5 

AA4— 4.*(C-1.)*ANY*AMN*CCS(S)/(C*S1N(S) ) 

AA5«AK*AA5 

IFCJ. EC.2)  GOTO  7 
DO*X( IB,IR. M.NI-PCI ,LP) 

W FITS  (6,471 1 1  M.N.LP.XCIB,  IR, M, N  )  ,X ( IB, IR  ,  Jl,  J2),P(  I,LP  ) 
FORMAT ( 1X,3I4,3(£x,E12.5) ) 

DAL*AL(ie,IR,M,N) 

CALL  FIND(KV,IM,I8,IR,X(IB,IR, Jl, J2),Y(IE,IR, J1,J2 ),M3,N3) 
OU»U( IC,ID,M3,N3)+U(IC,IC,M2,N2) 

OV»V(IC  ,ID.M3,N3)+V(IC, IC,M2,N2) 

IFCIE.EQ.l)  0U*0. 


IFCIE.EO.il  DV*0 • 

MP»1000000.*(P(I ,LP)-XCie,IR, J1.J2) ) 

IFCMP.LE.O  .AND.  T.NE.C.)  MR  I TE ( 6 .1003 1  F.N.PCI.LF)  .XCie.IRtJl.J2 

FORMAT  (IX, 'P-X.LE.O.  : • , 2 I4,2( 2X, 612 .5) I 

IFCMP.NE.C)  GOTO  3 

IFCT.NE.O.  .AND.  IQ.NE.CI  GOTO  3 

31=0. 

GCTQ  2 

Dl*CALCie.IR,M,N)-ALl ie,IR,Jl,J2) )*CC 
D1*D1/(4.*0AL*(P( I,LP)-X(IB,IR,J1  ,J2) I  I 
IK*3 

I FC IKK. EC. 1  I  WRITEC6, 1002)  M2, N2  ,  IK ,00, 0 1, CU. OV , DAL 

D2»AI*AK*AM*00/DAL 

02*— AM* (AK *00 )**2/(4.*CAL) 

04*1./SCRT(  ALCIB,IR,M,M  I 
D5*-D3*04 

D6*AK*AK*AM*PSI(I8, IR, Jl , J2)*00/0AL 
07*Y(IB,IR,M,NI-Y(IB,  IR,J1,J2) 

A(l»l)*l.+0 1+02+D3 
A  C 1, 2 ) *-(04+05 1*11 
A  C 1, 3) *C. 

RI Cl >*U C IB,  IR, Jl, J2)*( 1.-01-02-03 l-V Cl B,IR,J1,J2 1* CC4-05) *I1+C6 
A  (2,1 1*1. 

A  (2,2) *C. 

A(2.3)*-2.*AMl/07-AI*AM2 

RI(2)*-(2.*AMl/07-AI*AM2)*G(IB, IR  ,J1,J2 )-U< IB , IR ,J1 ,J2> 
RI(2)*RI(2)+(  AM3*0U+AM4*CV)*e I 2 
A  (3,1 ) *6. 

411:11  »-2.*ANl/D7-AI*AN2 

RI(3)*-(2.*AN1/C7-AI*AA2I*G(IB, IR,  Jl, J2 )-V( IB , IR,J1,J2) 

RI(3I*RI(3 )  ♦(  AN3*0li  +A*4*0V  )*6I2 


- 


CALL  SOLVE (NO) 
UCIB, IR,M,N)*ES(1) 
V 1 1 B  » I R  »M  »N )*ES  ( 2  I 
6  S  C  3 1 


G( IB, IR.M.N ) 


AT»AK 


N2)*EII 

)*EI2 


IFCAK.EC.O. )  AT *1 • 

PSIU8jIRjM£Nj«A!*(U(ie,IR,M,NI+P!I/((C-l.)*AM>  I /AT 
PSICIBdR,  M,N )*PS I  ( IC  » IC  »M2 »N2 )*6 12 
PII-CVC IB,IR,M,N)+VCie,IR, Jl, J2) )  *04*11 


Mtou, 


mz r 


PII»(PII+U(IBfIRtM,NI  +  L(IBjiqf  J1  ,J2))*0.5*C0 
PSI<IB,IR,K,NJ-Pll+PSI(IB,IR, Jl.jlT 
21  RETURN 
END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXX XXX XXXXX XXXXXXXXXXXXX 

c  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  xxxxxxxxxxxxx 

SUBROUTINE  GENU( I M, IB  ,  IR  ,M,N,I  ,AK,AM 


VwRlTEtb.lOOZ) 


3UDRUU  line  ucnuuniiDtiKintiNtlfAKfAri 

CCMPLEX*8  U.V,PSI,G,0YCXU,D2,06,B*,CL,B2,O 
CCMPLEX*8  AI ,EI 
CCMPLEX*16  A, RI ,E  S 

REAL*4  X,Y,AL,ZI,Z2,Z3,F.DO,D1,C3,C4,C5,EO,81,B2.B4,B4,F1.F2 

FQ(2.50).OX(2)tIN(2.50)»lN2(2.50) 

GENERAL  STEP  OF  UNSTEACY  FIELD 
I  KK*0 

I  F( IR .EQ .2 )  IKK»1 
IFUKK.EC.l)  WRITE(6.  1002  ) 

J1=M 
J  2=*N-1 
J2*M-1 
J4*N 

I  F( I .NE  .2 )  GOTO  5 

J1*M— 1 

J  2=N 

J2»M 

J4-N-1 

DOXl IB,IR,P,N)-X(IB,IR,J1,J2) 

D2*-0.5*AM*(AK*D0»**2 

D4»AL( IB.IR,M,Nr+AL(IB. IR, Jl. J2) 

^WRltslS!  {GCl|TM,Nl,ALl}E,,IRlp^f.C4,C0 

D6-(D1+D2+C3)/D4 
A<1,1) -1.+06 

A  (1. 2 )«?.*< 1.-03/041*1 1/05 

RI(l)*U(IBt  IR.Jl, J2»*(l.-06)+V (IB  .IR.Jl, J2 J*I 1 *2 .* ( 1. *03/0 A > /0 5 
RI(1)*2.*AK*AK*AM*PSI (IE.IR, Jl ,J2)*C0/D4+RI (1) 

BC-X( IB.IR, R,N)-X(IB, IR.J3.J4) 

si-2^WiSzl2ZMiBO*A<-<Ie"IR’J1"J2>  ^e0^«2-*00> 

B2*-0.5*AM*(AK*B0  »**2 


B4«1./SQRT(  ALCIB.IR.P.M) 

B5*-0 .5*B3*B4/AL lIB.IR.P.N) 
B6*0«  5* ( El +82+63 )/ALtIB,lR,M,N) 


A ( 2. 1 ) *1 •♦B6 
A  (2 , 2 ) »-( B4+B5) *1 1 
RI<2)*UUB,IR.J3»J4) 
RI(2)*PSI(IB, IR.J3.J 


)*<1.-B6)+V(IB,IP,J3,J4)*I1*(-B4+B5» 

J4)*AM*B0*AK*AK/AL(IB,IR,F,N)+RI<2) 


N0*2 

5?ik 

V  ( IB 
CL*V 


SOLVE (NO) 


. 'S(l) 

(IB,IR,M,N)*gS<2> 

L*V ( IB.IR, J1,J2>+V(IB,IR,M,N) 

M»(U< IE.IR.J3, J4I+U< IE.IR,M,N)+I1«CM) 


CL-PS _  __ 

PSKIBtlR.  F.N)»CL/2» 

183  i 

RETURN 

Ef>D 

: xxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxx xxxxxxxxxxxxxxxx xxxxxxxxxxxxx 
xxxxxxxxxxxxx xxxxxxxxxxxxxxxx xxxxxxxx xxxxxxxx XX XX XXX xxxxx xxxxxxxxxxxxx 
SLBROUTINE  RANDBUB.  IP.P.N.L) 

CCMPL5X4E  y,V.PSI,G,DY0XL,D2,A,0,CL,D6 


I (IB, IR, Jl , J2I+FS I ( 18 ,1R , J3, J4  J+CL+CH 
B.IR.FiNl-CL/2. 


*CL/C5t*CC/2. 
) *80/2 • 


LBROUTINE  RANOB ( 18, I R »P ,N ,L 1 

iSJt(xx:!  Kiyi?si.o.ovixu,52, 
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REAL*4  TX»TYtAA»TT»A»Tt«L»UU*Ui»U*t»U5tflLUtUit^tAl 
CCMM0N/8A/  ALO,AM,ALD,Cl,AK,I ,IP,TX,TY, IW,PA, IC,ET,XX,YY 
CCMMON/eC/  T1»T2»T»B  »DYCX,Q2YDX2,CYDXU»AI ,  El , 1 1 
COMMON  V (2, 3.50.20 )  ,X (2,3.50, 20) , F( 2 , 50  )  ,U < 2, 2 , 50, 2C ) . 


► 00, 01, DA, 05, AID, 02, P, XT 


COMPUTATION 


UNSTEACY  80UN0ERY-FRCP6RTIES 


BCOY 


XT»X(IB,IR, N.NI-XX 

CALL  8CUN0U (IM,IR,IB,XT,I,AK,L) 

V(IB,IR,M,N)»OYOXU 

J  1*M 

J2*N-1 

IFd.NE.2)  GOTO  5 

J1»M-1 

J2*N 

5  D1«0.5*(AL(IB,IR, N. N ) -AL (IB, I R , Ji  ,  J2 ) ) 

DO»X( IB,IR,P,N)-X(l8,IR,Ji,J2) 

D6*V(IB,!R,P.N1«-V(I8,IR,J1,J2) 

D2»AI*AK*AM*D0*2. 

03«-0.5*(AK*00)**2*AM 
D4*AL(IB,IR,M,N)+flL(IB, 1R, Jl, J2 I 
0  5*SQRT (AL(IB,IR,N,N))+SCRT(AL(I6«IR,J1,J2)) 

A«(Dl+02+C3  )/D4 

U<IB,IR,M,N)*(V(I3.IR,M,N)-V(IB,IP, Jl, J2I)*I1/D5 

U(IB,IR,M,N)*U(IB,IR,Jl,J2)*(l.-A)-2.*U(ie,lR,M,N) 

D*2.*PSI(IB,IR,  J1,J2)-CC*D6*U/C5 

UIIB.IR  ,M,N)»U(  IB  ,IP,N,N  )+AK*AK*AN*C0*C/C4 

U<IB,IR,N,N)*U(IB,IR,M,M/(l.fA) 

CL*U(IB,IR,P,N)HI(IB,  I P  ,  J1 ,  J2  )-2  .  «C6*  1 1/0  5 
PSI(IB,IR,N»N)*PSI (ie,IR,JI, J2 )+CCTCL/2, 

RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  CCNST1 CL04, IR  ,IB,ALZ,C2, XF ) 

CCMPLEX-8  l.V.PSI ,G,OYOXU 
CCMPLSX*8  A  I, El 

PEAL*4  X  »Y , AL ,01 , C2,D3,XF,ALD,P,C2,TX,TY,XX,YY,ALZ,X1,Y1,X2,X3 
CCMMON/BA/  ALO,AM,ALD,Cl,AK,I,IP,TX,TY,n<,PA,IC,ET,XX,YY 
CCMMON/BC/  T1,T2,T,B,CYCX,D2YDX2,CYCXU,AI,EI, II 
COMMON  V( 2, 3, 50,20) ,X ( 2 ,3 , 50 , 20 ) , P ( 2 , 50 ) ,U ( 2, 3 .50, 20 ) , 

fSH,,i5?’,6?!!t!i^i:ish^UhJ{’2l!0’20l’Y,ili’5j-20i' 


DETERMINATION  OF  THE  CONSTANT  VALLE  ALONG 


CHARACTERISTIC 


:  F( IR ,EQ.l 
IFIIR.EC.1 
IK»0 

FIIR.GT.1 ) 
C*l 
IC-1 

IF(IR.EC.l) 

IC-IR-1 


.AND. 

.ANO. 


IM.EC.l) 

I.EQ.l) 


GOTO  1 
GOTO  1 


GOTO 


1000 


JEWISH2’  Ic*1 

OC  3  J-2,20 

M»J 

N«J-1 

IF<IC.NE.2)  GOTO  4 
M«J-1 

oi*-ii /sort Tali ic,id,h,ni) 

X2»(  YY-YD/01+X1 
X^s  XP  +  XX 

G0T0  5 


,M,N,X1,Y1,AL< IC.ID.M.N) 
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ooO'Jh*'  ou»  h  nnnnn 


M*M— 1 
N*N-1 

X1*XUC,ID,P,N)-X(IC, It  2*1) 
CALL  B0UND(L04,IC,I0,IN,IC,X1) 
ALZ*ALtIC,IC,M,N)**l.5-»Il*C3*0 
GCfO  6 


♦  DYCX 

1  ALZ-ALD 

6  RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SUBROUTINE  PRESS! AMY, I R  ,EM , L02 1 AX ,C I 
CCMPLEX*8  L’»V»PSI  *G*0YCXU 
CCMPLEX*8  AI »EI »PU 

REAL+4  TX»TY»XX»YY»X,Y,AL»01,D2»D2,XP»AL0»F,C3,ALZ 
COMMON/ BA/  AL0,AM,AL0,C1,AK,I, IM,TX,TY, IW , PA , IQ ,ET , XX ,YY 

3:JiTte:n lsc.25., 

FPSH2,3,50,20),G12,3,50,20),AL!  2,2,50,20),Y?2,3,50,*0>, 

FQ!2,50> ,DX! 2) ,IN! 2 ,50) ,IN2!2,50) , FX (2 ,30 » , FS!2 ,30) , PU (2 ,30 ) 

COMPUTATION  AND  OUTPUT  OF  THE  PRESSURE  -  COEFFICIENTS 
ALONG  THE  CHOSEN  9LADE 
PL*CPU  ,  PS*CPS 

YN*-EM 

YM*AMY*180  ./!4.*ATAN!1.>) 

IF2-IM-2 
DC  7  1*1,2 
K1=0 

DC  1  K*1 , IR 
K  2*2 

IFd.EG.l  .AND.  K.EQ.l)  K3*l 
K2*K+K  3 
OC  3  J1-1,2C 
LI*J1+1 

CALL  SWITCH!LI, J1,M,N,I) 

IF(K3.GT.IR)  GOTO  10 
L  1*1 
LZ*2 

CALL  SWITCH  !LZ»  LI, PI, M, I) 

IF(XC1,K,M,N).GT.X{1,k!,P1,N1) )  GCTC  6 
GOTO  3 

0  D1*REAL(U(1  ,K,M,N) )**2*A IMAG! U 1 1 , K, F ,N ) )**2 
I F! D1 .EQ .0. I  GOTO  6 
CONTINUE 

I F( Jl.EC.l)  GOTO  1 
Jl-Jl-1 
K1*K1+J1 
DO  4  J2*l, J1 
L  I-J2+1 

CALL  SWITCHILI, J2,P,N, I) 

K2-J2+K1-J1 

PS!I,K3)  —  2.*!AL!  1, K, M»  N  )  -ALO )  / 1 C 1*AM ) 

PU(I ,K3)*-2.*!U!1,K,M,N)4AI*AK*PS1!1,K,M,N) > 

PX!I,K3)*X1 1,K,M,N) 

CONTINUE 
I N2!  I » 1 ) *K1 


mm 


OUTPUT 

WRITE (7,10151 
I F ( L02 .cC.O ) 

IF - 

WP 
WR 

wRit|(7,iOioi 

W  FITE  !  7 , 101 1 ) 
DC  8  1-1,2 
IF(l.gQ.i) 
IFCI.EQ.2) 

I F ( I .EC. 2) 
K-IN2!  1,1) 

OC  9  J-l  ,K 


WRITE!7»998 ) 
WRI TE (7 , 995 ) 


YM,  IM2 
AK, AX ,C , 


e,Ti 


WRITS! 7, 1001)  AK,AX  ,C , 6 ,72 
WRIT§!7,1012) 

WRITE! 7 ,1011 1 
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9 

8 

995 

996 
1001 


CALL  iwlTCH(LI ,J,M,N,I) 

WRITE (7, 101  3)  M,N,PX(I,J),PS(I,J>  ,PU(I,J) 
WPITE(7, 10141 

FCRMATUX,/, IX, 'PLUNGE  -  MODE',/) 
FCRMATUX,/, IX, 'PITCH  -  MODE'./) 
FCRMATUX,//, IX,' W*C/U»  *,F7.5,',  M»  ',F5« 
B/C*  *,F A. 2.',  T/C*  ' »F6,4, ////  ) 


F5.3.' 


r  F4«  2, 


r'»  D/L-  I  fv*  t“0«T|  /  //  /  I 

1010  FORMAT (IX, ' PRESSURE-COEFFICIENTS  LPPER  SURFACE:',//) 

1011  FORMAT! 2X»' POINT* ,4X,'X' ,8X, 'CPS'  ,8X  ,  • RC PU • ,8X , • ICPU • ,/ ) 

1012  FORMAT! IX, 'PRESSURE-COEFFICIENTS  LOWER  SURFACE:',//) 

1013  FORMAT (IX, 12, ',' , 12 ,4X , F5 .3 , 3 ( 2X , E10.3 >  ) 

1014  FORMAT!  //,  IX,  •  ***********************************************:**** 


F,//  ) 

1015  FORMAT ( 1H1 ) 

1016  FORMAT (IX, 'PHASE*  *,F7.2,'  /  ',12,'.  BLADE*) 

RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  SWITCH  ( J,  K  ,P  ,N , I ) 

C  INDEX  -  SWITCH 

M«J 
N*K 

IF(I.NE.2)  GOTO  l 

M»K 

N*J 

1  RETURN 

6  NO 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SLBROUTINE  SOLVE! N) 

CCMPL EX*16  G,C«  X 
CCMMOM/SCL/  G(4 ,4 ) , C ( 4 ) ,X ( 4) 

C  SOLVE  GIVES  THE  SOLUTION  FOR  A  COMPLEX  SYSTEM  OF 


LINEAR  ECUATIONS  G*X*C 
I  KK»0 

IF(IKK.NE.l)  GOTO  2 
WRITE ( 6, 1001 ) 

DC  1  M»1,N 

WRITE! 6,1000)  ( G! M, L ) ,L*1,N) ,C(M) 
MN-N-1 

DC  10  M»1,MN 
K*MU 

DC  10  J*K,N 
G(M,J)*G(M,J)/G(M,M) 

IF(M.EQ.l)  GOTO  14 
M  A  »M— 1 

DC  13  L*1,MA 

G(MjJ)»G(M, J)-G!M,L)*G(L,J)/G(M,M) 


DC  15  L*1,M 

G!J,K)«G(J,K)-G( 

CONTINUE 

C (1) *C ( 1) /G! 1 ,1 ) 
c5lj«CU)^G!I,I) 

C?l}lcu}-GU,M) 


K)— G!L,K)*G(J,L) 


X (Nl *C( N  ) 

DC  11  I«1,MI 
NA»N-I 
X (NA )*C (NA ) 
Ne-NA+1 


*C(M)/G(I,I) 


DC  11  J*NB , N 

11  X(NA)«X(NA)-G(NA,J)*X(J) 
1001  FCRMATUX, 'SOLVE-ENTRY:  • 
1000  FORMAT! IX, 1C(2X,E10. 31) 


RETURN 

ENO 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
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